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ABSTRACT 


The  purpose  of  this  thesis  was  to  simulate  the  interaction  between 
a  student  and  the  IBM  1500  instructional  computer  system. 

A  set  of  conventions  and  codes  was  established  to  develop  a  list 
structural  representation  of  computer-assisted  instructional  sequences 
written  in  the  language  Coursewriter  II  for  the  1500.  This  representa¬ 
tion  was  then  programmed  for  the  IBM  360/67  computer.  Accurate  represen¬ 
tations  were  produced  for  a  variety  of  courses. 

Three  areas  of  application  of  the  list  structural  representation 
were  investigated.  The  first  product  was  a  two-dimensional  logic  chart 
which  diagrams  the  complete  instructional  logic  of  a  course.  Sequential 
execution,  branches,  and  merges  are  indicated  on  the  chart.  The  second 
application  was  to  trace  all  possible  paths  that  could  be  followed  by 
students  making  consistent  responses  through  a  course.  These  applica¬ 
tions  provide  needed  assistance  for  authors  in  the  development  and  docu¬ 
mentation  of  courses. 

The  third  application  was  the  production  of  a  framework  for  the 
simulation  of  student  response  models.  The  framework  requires  the 
specification  of  the  condition  for  branching  at  each  response-dependent 
decision  point  in  the  course.  Student  simulation  variables  depending  on 
the  path  may  be  constructed.  This  application  provides  a  mechanism  for 
testing  student  learning  models. 
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CHAPTER  I 


Introduction 


INTRODUCTION 


A.  Computer-Assisted  Instruction 

The  digital  computer  has  begun  to  be  used  experimentally  as  a 
medium  for  the  instructional  process  in  a  wide  variety  of  subject  matter 
areas.  Computer-assisted  instruction  (CAI)  originated  with  the  work  of 
Rath  and  his  colleagues  (Rath,  Anderson,  and  Brainerd,  1959)  and  was 
quickly  taken  up  by  other  research  groups  (Coulson,  1962) .  Literature 
in  the  area  of  CAI  has  been  surveyed  recently  by  several  authors, 
including  Zinn  (1967),  Hickey  (1968),  and  Silberman  and  Filep  (1968). 

CAI  refers  to  the  interactive  instructional  and  learning  process 
between  computer  and  student.  The  computer  stores  stimulus  material, 
presents  it  to  the  student,  accepts  and  analyzes  student  responses,  and 
records  student  performance.  The  student  examines  the  stimulus  material 
responds,  and  waits  for  the  computer's  reply. 

The  needs  of  students  in  the  interactive  CAI  situation  impose 
certain  requirements  upon  the  computer  system.  A  large  memory  capacity 
is  needed  to  store  all  the  curriculum  or  stimulus  material,  as  well  as 
records  of  student  performance.  Reasonably  fast  response  time  is  desire 
able  to  avoid  student  inattention,  and  some  form  of  time-sharing  is 
required  in  order  that  different  students  may  work  on  different  subject 
matter  at  the  same  time.  Interactive  media  for  stimulus  and  response 
should  be  available  in  a  variety  of  sensory  modes,  particularly  auditory 
and  visual  modes.  This  may  involve  films,  graphics,  audio  tapes,  and 


the  like. 
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Another  important  requirement  of  a  CAI  system  is  software,  parti¬ 
cularly  an  author  language  that  permits  convenient  entry  of  stimulus 
materials  and  instructional  logic  into  the  system. 

A  recent  development  in  CAI  is  the  commercial  marketing  of  instruc¬ 
tional  computer  systems  for  research  purposes.  For  example,  firms  that 
have  specific  thrust  in  this  area  include  RCA,  Honeywell,  Philco-Ford, 
and  IBM.  One  such  experimental  system  is  the  University  of  Alberta  IBM 
1500  Instructional  System. 

With  the  1500  system,  curriculum  material  and  instructional  se¬ 
quences  are  stored  in  peripheral  memory  banks  (disks) ,  while  the  central 
processing  unit  presents  the  material  to  each  student  and  analyzes 
student  responses.  The  equipment  at  each  student  terminal  consists  of 
a  typewriter  or  combination  display  screen  and  keyboard,  a  light  pen, 
and  a  film  strip  projector.  As  well,  an  audio  play  and  record  unit  is 
being  made  available  for  each  student  terminal  at  the  time  of  writing. 

Curriculum  or  stimulus  material  may  be  presented  visually  to  the 
student  by  means  of  the  typewriter  or  screen  and  the  projector.  Char¬ 
acters  or  graphics  of  any  design,  within  physical  limitations,  may  be 
presented  on  the  display  screen  cathode  ray  tube  (IBM  1500  Coursewriter 
II  Author's  Guide,  1967).  Film  strip  slides  may  be  shown  individually 
in  any  order.  Student  responses  constructed  from  characters  are  accepted 
from  the  typewriter  or  keyboard.  As  well,  the  system  can  recognize  a 
lighted  area  of  the  screen  that  is  pointed  to  with  the  light  pen.  The 
system  is  "time-sharing"  in  the  sense  that  each  user  at  a  terminal  may 
be  working  on  different  course  material  at  the  same  time.  The  system 
switches  automatically  between  terminals  in  such  a  way  that  each  user 
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need  only  be  conscious  of  his  own  interaction  with  the  computer. 

System  users  may  conveniently  be  categorized  into  three  types: 
proctors,  authors,,  and  students.  Proctors  operate  the  system,  schedule 
courses,  register  students,  and  the  like.  Authors  have  the  responsibility 
of  developing  curriculum  material  and  instructional  sequences.  This  in¬ 
cludes  the  programming  of  such  material  in  a  language  acceptable  to  the 
computer,  for  example,  the  language  Coursewriter  II  for  the  1500  system. 
Students  interact  with  and  respond  to  the  course  material  prepared  by 
authors.  Each  category  of  user  has  a  set  of  system  control  commands  at 
his  disposal.  For  example,  author  commands  include  those  that  permit  the 
insertion,  deletion,  replacement,  movement,  display,  and  execution  of 
Coursewriter  statements  in  a  course. 

Computer-assisted  instruction  provides  a  medium  in  which  controlled 
experimentation  on  the  instructional  and  learning  processes  can  be  made. 
The  extent  to  which  CAI  may  have  practical  application  in  actual  schools 
is  not  yet  fully  known. 

B.  The  Need  for  IBM  1500  Author  Assistance 

Programming  a  course  for  CAI  on  the  1500  computer  system  is  a  very 
large  chore.  Besides  requiring  familiarity  with  curriculum  material  and 
instructional  methodology,  the  author  must  possess  a  working  knowledge  of 
the  Coursewriter  II  language.  In  contrast  to  algebraic  languages  such  as 
Fortran,  Coursewriter  II  provides  relatively  few  diagnostic  messages  to 
help  the  programmer  during  assembly  or  execution.  Instructional  programs 
tend  to  be  long  and  logically  complex,  and  the  actual  paths  followed  by 
students  through  a  program  depend  on  the  responses  they  make.  The  logical 
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complexity  of  Coursewriter  II  programs  is  greatly  increased  by  a  feature 
of  the  language  that  provides  for  automatic  or  implicit  branching.  For 
example,  using  the  path-tracing  program  which  is  one  product  of  this 
thesis,  more  than  200  distinct  paths  were  found  in  a  course  consisting  of 
only  about  500  Coursewriter  II  statements. 

At  present  it  is  usually  the  case  that  the  only  precise  representa¬ 
tion  of  the  logic  of  an  instructional  sequence  is  the  CAI  program  itself. 
Usually  this  has  been  developed  from  existing  book-form  curriculum 
material  at  the  author's  initiative,  perhaps  with  the  aid  of  flowcharts. 
Flowcharts  may  be  used  to  describe  course  logic  at  various  levels, 
depending  on  the  amount  of  detail  and  precision  required.  At  the  most 
detailed  level,  a  flowchart  may  be  a  precise  representation  of  program¬ 
ming  logic,  and  one  that  is  readily  comprehensible  once  the  conventions 
are  understood.  At  another  level,  flowchart  blocks  may  represent 
logical  units  greater  than  a  single  instruction,  hence  their  use  in  this 
way  may  be  symbolic  and  less  precise. 

Detailed  flowcharts  are  generally  not  available  for  any  CAI  program, 

i 

as  their  construction  by  hand  is  too  time-consuming. 

It  is  generally  feasible  to  completely  debug  an  algebraic  program 
by  testing  all  possible  contingencies  that  may  arise.  Such  a  procedure 
is  more  time-consuming  with  instructional  programs  on  account  of  their 
length,  logical  complexity,  and  response-dependency.  All  possible 
student  responses  must  be  considered  in  order  to  fully  debug  a  CAI  course. 
To  do  this,  an  author  would  have  to  sign  on  as  a  student  and  try  out  all 
responses  that  could  be  made  in  order  to  be  assured  that  the  program 
takes  appropriate  action  for  each  possible  response. 
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In  order  to  implement  an  instructional  program,  the  author  needs  to 
have  an  idea  about  the  responses  actual  students  will  make,  the  difficulty 
of  the  material,  and  time  estimates.  Grubb  (1967,  p. 71)  describes  his 
personal  experience  in  writing  a  computerized  course:  "In  writing  the 
statistics  course  for  this  medium  I  found  that  I  was  revising  the  course 
almost  hourly.  Student-record  data  from  the  computer  on  students' 
performance  would  almost  always  open  up  in  the  course  material  new  branch 
structures  that  I  was  not  clever  enough  to  predict." 

A  further  burden  for  the  CAI  author  is  the  task  of  documentation  of 
a  completed  course.  Exactly  how  much  detail  need  be  included  in  a  docu¬ 
mentation  depends  on  for  whom  it  is  being  prepared,  but  without  a  form  of 
documentation  a  program  is  not  very  useful  to  others.  All  the  afore¬ 
mentioned  reasons  for  difficulties  in  debugging  apply  also  to  documentation, 
making  it  also  very  time-consuming,  expensive,  and  inefficient. 

C .  Computer  Simulation 

A  computer  simulation  of  an  operation  is  a  process  of  modelling  the 
operation  by  representing  it  with  a  computer  program.  The  operations  of 
numerous  industrial  and  administrative  systems  have  been  effectively  and 
economically  modelled  through  the  use  of  computer  simulation  techniques. 

New  computer  languages,  both  general  and  specific  in  their  application, 
have  been  developed  to  meet  the  needs  of  those  charged  with  the  program¬ 
ming  of  computer  simulation  models.  One  of  the  main  purposes  of  such 
work  has  been  to  optimize  the  parameters  of  a  complex  operation  under 
varying  conditions.  Naylor,  Balintfy,  Burdick,  and  Chu  (1966)  provide  a 
summary  of  simulation  techniques  in  economics. 
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Digital  simulation  has  been  used  to  advantage  in  behavioral  science 
as  well.  Computer  models  of  cognitive  processes  have  been  particularly 
promising,  and  are  closely  paralleled  by  numerous  endeavours  in  the  area 
of  artificial  intelligence  (Feigenbaum  and  Feldman,  1965) .  A  computer 
simulation  of  student  performance  in  a  computer-controlled  instructional 
setting  is  not  yet  reported  in  the  literature. 

The  point  of  view  developed  in  this  thesis  is  to  demonstrate  how 
computer  simulation  techniques  can  be  applied  to  CAI  in  such  a  way  as  to 
provide  needed  assistance  for  authors  in  the  development  of  instructional 
programs.  It  is  also  shown  that  computer  simulation  of  CAI  may  be  used 
to  test  student  learning  models. 

The  idea  of  simulating  CAI  is  to  provide  a  representation  of  both 
the  instructional  logic  and  possible  student  responses  so  that  information 
of  benefit  to  authors  may  result.  For  example,  a  flowchart  of  the  in¬ 
structional  logic  could  be  drawn  from  the  simulation  representation.  As 
well,  the  paths  followed  by  different  types  of  students  through  an 
instructional  sequence  could  be  traced,  to  give  an  idea  of  how  a  variety 
of  students  might  respond  to  the  CAI  course.  Information  derived  from 
the  simulation  could  be  used  to  develop,  debug,  improve,  and  document  the 
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BACKGROUND  AND  METHODOLOGY 

A  summary  of  the  computer  language  Coursewriter  II  is  given  in 
section  A  of  this  chapter.  A  comparison  of  the  advantages  and  disadvan¬ 
tages  of  three  alternative  approaches  to  simulation  of  the  instructional 
and  learning  aspects  of  CAI  is  made  in  section  B.  Of  the  three  suggested 
possible  methods,  the  last  one,  simulation  using  a  list-processing 
language,  is  selected.  A  brief  description  of  a  modified  symmetric  list 
processor  (MOSLIP)  is  then  given  in  section  C. 

A.  Summary  of  Coursewriter  II' 

Instructional  programs  for  the  IBM  1500  are  written  in  the  computer 
language  Coursewriter  II.  The  programmer  or  author  of  a  computerized 
course  writes  the  sequence  of  instructions  as  if  for  one  student,  although 
in  fact  a  number  of  students  may  be  at  different  points  in  the  same  course, 
or  another  course,  at  the  same  time,  because  of  the  time-sharing  nature 
of  the  system.  Each  student  station  consists  of  a  film  strip  projector, 
audio  equipment,  and  a  typewriter  or  display  screen  with  keyboard  and  light 
pen.  For  each  station,  areas  in  the  computer  memory  are  set  aside  as 
buffers,  counters,  and  switches  to  keep  track  of  student  responses,  to 
compute  scores,  and  to  provide  for  conditional  branches.  Buffers,  counters, 
and  switches  are  used  to  store  character  string,  integer,  and  logical  data 
respectively. 

Details  of  the  Coursewriter  II  language  are  given  in  the  IBM  1500 
Coursewriter  II  Author’s  Guide  (1967).  The  thirty-five  instructions  of 
the  language  may  be  summarized  here  by  six  main  areas. 
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The  summary  gives  the  two-character  operation  code  (card  columns  7  and  8) 
which  calls  up  each  instruction,  followed  by  a  brief  explanation  of  the 
operation  performed  by  each  instruction: 

1.  Problem  presentation 

pr  problem  start  (begin  new  problem) 

ty  type  text  or  contents  of  buffer  on  typewriter 

dt  display  text  or  contents  of  buffer  on  display  screen 

dg  display  graphic  on  display  screen 

de  erase  one  or  more  lines  on  the  display  screen 

dl  display  emphasis  line  (underline)  on  display  screen 

pm  proctor  message  sent  to  proctor  station 

au  position  and/or  play  or  record  audio  message 

fp  position  film  and/or  open  or  close  shutter 

pa  pause 

2.  Response  request 

ep  enter  and  process  response  from  keyboard  or  light  pen 
ec  enter  response  and  continue 

3.  Response  analysis  (compare  stored  answer  with  student’s  response) 

ca  correct  answer 

cb  synonymous  correct  answer 

wa  wrong  answer 

wb  synonymous  wrong  answer 

aa  additional  answer 

ab  synonymous  additional  answer 

un  unrecognized  response 

ea  end  of  answers 
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4.  Scorekeeping 

ad  add  integer  or  counter  to  counter 
sb  subtract  integer  or  counter  from  counter 

mp  multiply  counter  by  integer  or  counter 

dv  divide  counter  by  integer  or  counter 

Id  load  integer  or  counter  into  counter,  load  switch,  or  load 
text  or  buffer  into  buffer 

5.  Presentation  sequence  control 

nx  no  execute  (conditional  execution  of  subsequent  instructions) 
tr  transfer  to  new  course  segment 

br  branch  to  label,  return  register,  last  executed  ep,  or  n’th 
next  problem,  either  unconditionally  or  conditional  on  the 
state  of  a  counter  or  switch 
lr  load  label  into  return  register 

6.  Special  instructions 

cm  call  and  execute  a  Coursewriter  macro 

fn  call  and  execute  an  assembly-language  function 

no  no  operation 

ma  macro  name  (beginning  of  macro) 

em  end  of  macro 

en  end  of  course 

Most  of  these  instructions  may  have  modifiers  and/or  parameters 
which  specify  the  details  of  the  operation  to  be  performed. 

In  addition  to  explicit  branches  which  may  be  constructed  by  the  use 
of  statement  labels  and  the  br  instruction,  Coursewriter  II  also  features 
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implicit  or  automatic  branching.  The  entire  logic  of  the  implicit 
branching  feature  of  the  language  is  summarized  in  the  course  flow 
decision  table  (Figure  2.1)  reprinted  here  from  the  IBM  1500  Coursewriter 
II  Author’s  Guide  (1967). 

All  Coursewriter  II  instructions  may  be  classified  as  either  major 
or  minor.  The  major  instructions  include  those  previously  classified  as 
response  analysis  instructions  (category  3  above)  as  well  as  the  pr  and 
nx  instructions.  Whenever  a  control  instruction  (a  major  or  ep)  is 
executed,  a  condition  is  set  up  whereby  subsequent  instructions  may  or 
may  not  be  executed.  The  nine  conditions  that  may  be  set  up  are  indicated 
in  columns  0  through  8  of  the  course  flow  decision  table,  while  the  eight 
types  of  instructions  that  may  be  currently  encountered  are  indicated  as 
rows  0  through  7  of  the  table.  The  decision  to  be  taken  when  an  instruc¬ 
tion  is  encountered  under  a  given  condition  is  indicated  in  the  body  of 
the  course  flow  decision  table  at  the  intersection  of  the  appropriate  row 
and  column. 

For  example,  minor  instructions  (row  4  of  Figure  2.1)  following  an 
executed  ca  or  cb  (correct  answer)  are  executed  or  not  depending  on 
whether  the  student's  response  did  or  did  not  match  the  stored  correct 
answer  (columns  7  or  3  respectively).  As  another  example,  when  an  aa,  ca, 
wa,  or  un  (row  2)  is  encountered  following  a  match  on  a  ca  or  cb  (column  7), 
course  flow  automatically  skips  to  the  next  problem  (pr) . 

Implicit  branching  introduces  a  hidden,  but  useful,  complexity  in 
the  logic  of  instructional  programs  written  in  Coursewriter  II. 


' 
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B.  Alternative  Methods  of  Simulation 


The  intent  of  the  thesis  was  stated  in  Chapter  I  as  the  development 
of  means  for  computer  simulation  of  student  performance  in  a  computer- 
assisted  instructional  setting.  Input  to  the  proposed  simulation  program 
would  consist  of  a  course  program  (written  in  Coursewriter  II  for  the  IBM 
1500)  and  required  parameters  would  include  debug,  documentation,  and 
learning  options  depending  on  the  principal  intent  of  the  simulation. 

The  learning  parameters  would  determine,  on  a  deterministic  or  probabil¬ 
istic  basis,  the  decision  to  be  taken  at  each  response-dependent  branch 
point  of  the  course.  Output  would  include  a  trace  of  course  flow,  and 
particular  debug  and  documentation  information  requested. 

Three  alternative  methods  are  initially  considered,  depending  on  the 
type  of  simulation  language  used.  The  three  types  of  languages  discussed 
here  are  Coursewriter  II,  a  general  purpose  simulation  language,  and  a 
list-processing  language  as  the  medium  for  simulation. 

1 .  Simulation  using  Coursewriter  II 

Since  the  input  course  program  in  its  existing  form  already  repre¬ 
sents  a  model  of  the  instructional  process  for  the  course,  only  simulated 
student  responses  (or  their  branching  equivalents)  need  be  added  for  the 
program  to  represent  the  complete  learning  and  instructional  process. 

Thus  the  simulated  program  would  be  written  in  the  same  language  as  the 
input  course  program  —  Coursewriter  II. 

Since  it  could  be  run  on  the  same  computer  (the  IBM  1500),  the 
simulation  program  could  easily  replicate  the  details  of  the  course 
program  (for  example,  graphic  displays).  This  feature  would  make  this 
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method  particularly  useful  in  debugging.  Unfortunately,  there  are  a 
number  of  disadvantages  to  this  approach: 

(a)  Simulation  would  tend  to  be  slow,  and  might  use  up  valuable  author 
or  student  time. 

(b)  It  would  be  difficult  to  provide  a  clear  separation  of  learning 
aspects  from  instructional  aspects. 

(c)  The  inflexible  nature  of  the  Coursewriter  language  would  tend  to 
make  implementation  difficult. 

d)  The  representation  would  not  be  useful  for  documentation  or  flow¬ 
charting,  since  it  provides  no  alternative  representation  of  course 
logic  other  than  that  contained  in  the  course  program  itself. 

2 .  Simulation  using  a  general  purpose  simulation  language 

The  language  selected  must  be  flexible  and  suited  to  the  special 
needs  of  simulation,  such  as  IBM's  General  Purpose  Systems  Simulator 
(GPSS) .  GPSS  has  been  used  to  simulate  vehicle  traffic,  factory  produc¬ 
tion  lines,  communication  systems  and  the  like,  and  could  be  used  to 
represent  student  flow  through  a  CAI  course.  The  starting  point  of  a 
GPSS  program  is  a  block  diagram  similar  to  a  flowchart  with  precise 
conventions.  Possible  output  could  include  the  number  of  students 
passing  through  any  point  in  the  system,  time  required  for  completion 
of  portions  of  the  course,  average  utilization  of  system  elements  and 
queue  lengths  at  selected  points. 

GPSS  might  be  more  useful  for  study  of  performance  of  the  whole  1500 
system,  rather  than  just  the  portion  consisting  of  student  interaction  with 
a  course  program.  The  main  disadvantage  of  GPSS  is  that  the  starting  point 


. 
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(a  block  diagram)  does  not  meet  the  needs  of  the  proposed  simulation  which 
is  required  to  begin  with  an  existing  CAI  course  program,  for  which  no 
flowchart  is  available.  A  typical  Coursewriter  II  program  contains  a 
large  number  of  system  elements,  each  of  which  would  have  to  be  represen¬ 
ted  by  a  block  diagram. 

Thus  GPSS,  although  potentially  useful  in  a  study  of  the  1500  system, 
is  not  well  suited  to  the  needs  of  the  proposed  simulation. 

3 .  Simulation  using  a  list  processing  language 

List  processing  languages  have  been  found  useful  with  a  variety  of 
complex  symbol-manipulation  problems,  including  language  translation  and 
artificial  intelligence.  Hierarchically  organized  data  of  indefinite 
length  is  stored  in  cells  linked  together  to  form  lists.  Lists  in  turn 
may  be  linked  together  by  the  provision  that  a  list  cell  may  point  to  a 
sublist.  A  tree  structure  results  if  sublists  may  be  pointed  to  only 
once.  A  more  complex  list  structure  results  if  sublists  may  be  sublists 
of  more  than  one  list,  as  is  permitted  in  the  more  general  list-processing 
languages.  A  detailed  comparison  of  four  well-known  list-processing 
languages  (LISP,  IPL-5,  COMIT,  and  SLIP)  is  given  by  Bobrow  and  Raphael 
(1964). 

SLIP  is  a  symmetric  list  processor  consisting  primarily  of  a  set  of 
Fortran  subprograms  written  by  Weizenbaum  (1963) .  A  modified  symmetric 
list  processor  (MOSLIP)  designed  for  the  IBM  360/67  computer  is  described 
by  Flathman  (1968) . 

Using  MOSLIP,  instructional  logic  would  be  represented  isomorphically 
as  a  data  structure  that  could  be  operated  on  in  a  variety  of  ways. 
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Details  of  an  instructional  program,  such  as  graphical  displays,  could  not 
be  represented  in  their  original  form  during  a  simulation  so  that  certain 
types  of  debug  errors  could  not  be  located.  However,  the  instructional 
logic  and  branching  mechanism  could  be  completely  represented.  Powerful 
list  operations  are  provided  in  the  language,  and  the  well-known  algebraic 
flexibility  of  Fortran  is  also  available.  Learning  and  instructional 
aspects  of  a  CAI  simulation  could  be  clearly  separated.  Thus  a  list¬ 
processing  language  such  as  MOSLIP  would  seem  to  be  the  most  advantageous 
for  the  proposed  application  to  CAI  simulation. 

The  first  major  problem  to  be  solved  is  to  find  a  convenient  and 
economical  representation  of  all  Coursewriter  instructions  affecting 
branching,  both  explicit  and  implicit,  so  that  the  logic  of  a  complete 
course  could  be  represented  as  a  data  list  structure. „  Then,  operating  on 
this  data  base,  a  variety  of  debug,  documentation  and  learning  simulation 
programs  could  be  written.  Chapters  III  and  IV  of  this  thesis  are  devoted 
to  the  solution  of  these  problems. 

To  illustrate  how  list-processing  may  be  applied  to  representing 
program  logic,  an  outline  of  a  short  but  typical  sequence  of  Coursewriter 
instructions  is  given: 


ep 

request 

response 

dt 

display 

text  if  response  is  in  time 

nx 

skip  to 

ca  if  response  is  in  time 

de 

display 

erase  if  response  is  timed-out 

ca 

compare 

with  stored  correct  answer 

If  the  student  responds  in  time  to  the  response  request  ep  instruction, 
then  it  may  be  seen  from  the  course  flow  decision  table  (Figure  2.1)  that 


. 


' 


16 


the  dt  and  then  the  ca  instructions  are  executed.  In  this  case  the  nx  and 
de  are  not  executed.  However,  if  the  student  does  not  respond  within  the 
permitted  latency  time,  then  the  ep  is  timed  out  and  dt  is  not  executed, 
but  instead  the  nx,  de,  and  ca  are  executed. 

A  possible  MOSLIP  list  structure  representation  of  the  program  logic 
in  this  short  sequence  of  Coursewriter  instructions  is  given  in  Figure  2.2. 


Figure  2.2  A  MOSLIP  Representation 

In  Figure  2.2,  each  box  represents  a  MOSLIP  cell.  A  box  with  an  H 
in  it  represents  the  header  of  a  list,  while  a  box  with  a  P  is  a  cell 
pointing  to  the  header  of  a  sublist.  Cells  on  a  list  are  indicated  by 
horizontal  lines  from  the  list  header  on  the  left  to  the  end  of  the  list 
on  the  right.  The  occurrence  of  sublists  is  indicated  by  the  vertical 
arrows . 

There  are  three  lists  in  this  representation,  one  for  each  control 
instruction  (major  instruction  or  ep) .  The  control  instructions  in  this 
example  are  the  ep,  nx,  and  ca,  and  there  is  a  list  header  (H)  for  each. 
The  two  paths  through  the  sequence,  (ep  dt  ca)  and  (ep  nx  de  ca)  are 
clearly  evident  in  this  representation. 


17 


The  complete  details  of  how  a  MOSLIP  representation  may  be  established 
for  the  logic  of  any  Coursewriter  course  are  given  in  Chapter  III. 

C .  Modified  Symmetric  List  Processor 

This  section  comprises  a  brief  description  of  the  modified  symmetric 
list  processor  (MOSLIP)  designed  by  Flathman  (1968).  MOSLIP  is  based  on 
the  SLIP  language  invented  by  Weizenbaum  (1963)  and  consists  of  a  set  of 
Fortran  subprograms  for  the  IBM  360/67. 

In  MOSLIP,  information  is  stored  in  specially  designed  cells  which 
also  hold  data  identifying  the  cell  and  describing  its  linkage  to  other 
cells.  Cells  are  linked  together  into  larger  units  called  lists,  which 
are  preceded  by  a  special  header  cell.  Lists  in  turn  may  be  linked  to 
form  more  complex  list  structures. 

Special  processes  are  required  to  deal  with  data  that  is  linked 
hierarchically  into  lists  and  list  structures.  In  addition  to  organizing 
a  storage  area  composed  of  cells  and  assigning  a  unique  address  to  each, 
processes  are  needed  to  deal  with  the  storage  and  retrieval  of  information 
in  each  portion  of  a  cell.  A  special  list  of  available  space  should  be 
created  and  maintained  for  storing  cells  that  are  not  in  use.  Processes 
are  needed  for  removing  cells  from  the  list  of  available  space,  and 
returning  them  when  they  are  no  longer  needed. 

More  processes  are  required  for  linking  cells  together  to  form  lists, 
and  for  maintaining  information  about  a  whole  list  in  the  header  cell. 

Means  must  be  provided  for  creating  a  list,  adding  cells  to  it,  removing 
cells  from  it,  and  erasing  the  list  when  it  is  no  longer  needed.  Finally, 
processes  are  required  for  the  storage  and  retrieval  of  information  on 
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Each  MOSLIP  cell  consists  of  four  parts  which  will  be  described 
individually  in  turn: 

(a)  a  2-byte  integer  field  ID  for  identification 

(b)  a  2-byte  integer  field  LNKL  for  link  to  the  left 

(c)  a  2-byte  integer  field  LNKR  for  link  to  the  right 

(d)  a  4-byte  integer  field  ICONT  for  the  contents  of  the  cell. 


ID 


LNKL  !  LNKR  ICONT 


Figure  2.3  A  MOSLIP  Cell 


The  ID  field  describes  the  use  to  which  a  cell  is  put.  For  any  cell 
address  K  between  1  and  16000,  the  ID  field  of  cell  K  is  given  by  the 
value  of  function  IDIN(K).  If  this  value  is  2  or  more,  the  cell  is  a 
list  header.  The  LNKL  field  contains  the  address  of  the  cell  to  the  left 
(or  "above")  on  the  same  list.  For  any  cell  address  K,  the  LNKL  field  of 
cell  K  is  given  by  the  value  of  function  LLIN(K).  If  K  is  a  header  cell, 
then  LLIN(K)  is  the  address  of  the  cell  at  the  bottom  of  the  list  headed 
by  cell  K,  because  of  the  circular  or  symmetric  nature  of  MOSLIP  lists. 


The  LNKR  field  contains  the  address  of  the  cell  to  the  right  (or 
"below")  on  the  same  list.  For  any  cell  address  K,  the  LNKR  field  of 
cell  K  is  given  by  the  value  of  function  LRIN(K).  If  K  is  a  header  cell, 
then  LRIN(K)  is  the  address  of  the  cell  at  the  top  of  the  list  headed  by 
cell  K. 

Subroutine  SETIND  is  used  to  store  values  in  the  ID,  LNKL,  and/or 
LNKR  fields  of  a  cell.  The  statement  CALL  SETIND  (I,  LL,  LR,  K)  will 
store  the  value  of  I  in  the  ID  field,  LL  in  the  LNKL  field,  and  LR  in  the 
LNKR  field  of  the  cell  with  address  K.  However,  if  I,  LL,  or  LR  has  the 
value  -1,  then  the  value  of  the  corresponding  field  is  not  changed. 
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A  simple  example  of  the  use  of  the  MOSLIP  subprograms  mentioned  so 
far  follows,  with  notes  to  the  right: 


CALL  SETIND  (3,5,7,29) 

set  3,5,7  in  cell  29 

CALL  SETIND  (-1,-1, 9, 29) 

set  9  in  LNKR  of  cell  29 

I  =  IDIN  (29) 

I  equals  the  ID  of  cell  29 

J  =  LLIN  (29) 

J  equals  the  LNKL  of  cell  29 

K  =  LRIN  (29) 

K  equals  the  LNKR  of  cell  29 

At  the  end  of  this  short  sequence,  the  value  of  1  is  3,  J  is  5,  and 
K  is  9. 

The  ICONT  field  of  a  MOSLIP  cell  contains  the  contents  or  datum 
stored  in  the  cell.  A  datum  may  be  an  integer,  floating  point  number, 
Hollerith  field  up  to  4  characters,  or  the  name  of  a  sublist.  For  any 
cell  address  K,  the  ICONT  field  of  cell  K  is  given  by  the  value  of 
function  INHALT (K). 

Subroutine  STRIND  is  used  to  store  a  datum  in  the  ICONT  field  of  a 
cell.  The  statement  CALL  STRIND  (M,K)  will  store  the  value  of  datum  M 
in  the  ICONT  field  of  cell  with  address  K.  For  example,  in  the  following 
sequence : 


DATA  M/' DATA 7,  K/57/ 

define  M  and  K 

CALL  STRIND  (M,K) 

store  M  in  cell  K 

I  =  INHALT (K) 

I  equals  the  contents  of  K 

I  has  the  value  ’DATA',  a  4-character  Hollerith  constant. 

Lists  may  be  linked  together  to  form  more  complex  list  structure  by 
the  provision  that  a  datum  stored  in  a  cell  may  be  the  name  of  a  sublist. 
The  name  of  a  list  is  a  simple  transformation  of  the  address  of  the  header 


cell  of  the  list.  This  transformation  is  accomplished  by  function  NAME. 
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For  the  address  K  of  any  header  cell,  the  name  of  the  list  headed  by  cell 
K  is  given  by  the  value  of  the  function  NAME(K). 

The  reverse  transformation  from  the  name  of  a  list  to  the  address  of 
the  header  cell  is  done  by  function  MADLST.  For  the  list  whose  name  is  L, 
the  address  of  the  header  cell  of  list  L  is  given  by  the  value  of  the 
function  MADLST (L).  For  example,  in  the  following  statement: 

I  =  MADLST  (NAME (K) ) 

the  second  transformation  MADLST  undoes  the  first  transformation  NAME  so 
that  the  resulting  value  of  I  is  simply  the  cell  address  K.  If  L  is 
already  the  address  of  a  cell,  rather  than  the  name  of  a  list,  then  the 
transformation  MADLST(L)  results  in  the  same  value  L. 

2 .  Creating  and  erasing  cells  and  lists 

A  mainline  MOSLIP  program  begins  with  two  standard  statements.  The 
first  is  an  optional  declarative  statement:  COMMON  LAVS,  LW(10).  This 
provides  access  to  the  header  of  a  special  list  called  the  list  of 
available  space  (LAVS)  and  to  the  names  of  ten  public  working  lists 
LW(1)  to  LW(10) .  This  first  statement  is  not  required  if  LAVS  and  the 
LW's  are  not  referred  to  in  the  program. 

The  second  standard  statement,  which  isn't  optional,  is  a  call  to 
SUBROUTINE  INITAS(N),  "initial  available  space",  which  organizes  core 
into  N  cells  and  stores  them  on  LAVS.  Cells  which  are  not  in  use  are 
stored  on  LAVS  and  made  available  when  needed.  INITAS  also  creates  the 
ten  public  working  lists  LW(1)  to  LW(10) .  The  argument  N  of  INITAS  is 
equal  to  the  number  of  cells  created,  and  must  be  an  integer  between  12 
and  16000.  For  example:  CALL  INITAS  (16000)  organizes  the  memory  into 
16000  MOSLIP  cells,  stores  them  on  the  list  of  available  space,  and 
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creates  empty  lists  LW(1)  to  LW(10).  The  value  -1  is  stored  in  the 
contents  of  the  headers  of  the  LW’s. 

New  cells  may  be  obtained  from  the  top  of  LAVS  by  function  NUCELL(X), 
where  X  is  a  dummy  variable.  The  address  of  the  new  cell  is  given  by  the 
value  of  function  NUCELL(X).  If  the  ID  of  the  cell  has  the  value  1, 
indicating  the  cell  contains  the  name  of  a  sublist,  erasure  of  the  sublist 
is  called  for. 

Cells  are  returned  to  the  bottom  of  LAVS  by  subroutine  RCELL.  The 
statement  CALL  RCELL (K)  will  return  the  cell  with  address  K  to  LAVS. 

For  example,  consider  the  following  statement:  CALL  RCELL  (NUCELL(X)). 

In  this  example,  a  new  cell  is  taken  from  the  top  of  LAVS  by  NUCELL,  and 
then  it  is  returned  to  the  bottom  of  LAVS  by  RCELL.  Thus  RCELL  undoes 
the  work  of  NUCELL  (although  the  structure  of  LAVS  is  changed) . 

Function  LISTMT(L)  tests  whether  or  not  a  list  is  empty.  If  L  is  a 
list  name  or  address  of  a  header  cell,  the  value  of  function  LISTMT(L)  is 
0  if  the  list  is  empty,  and  -1  otherwise. 

Function  MTLIST(L)  empties  list  L  by  returning  all  its  cells  except 
the  header,  to  LAVS.  L  is  also  the  value  of  the  function. 

Function  IRALST(L),  "erase  list",  decrements  the  reference  counter  of 
list  L  by  one,  delivering  the  new  value  of  the  reference  counter  as  the 
value  of  the  function.  If  the  decremented  reference  counter  is  2  or  less, 
the  list  L  is  erased  by  returning  all  its  cells,  including  the  header,  to 
LAVS. 


New  lists  can  be  created  whenever  desired  with  the  LIST  function. 


The  statement  L  =  LIST(K)  creates  an  empty  list  whose  name  is  L.  The 
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contents  of  the  header  cell  is  set  to  the  value  -1.  If  K  is  2  the  refer¬ 
ence  counter  of  the  new  list  is  2,  otherwise  the  reference  counter  is  set 
to  3.  Only  main  lists  or  those  that  the  programmer  wishes  to  explicity 
erase  when  no  longer  needed  should  be  created  with  a  reference  counter  of 
3.  Sublists  should  ordinarily  be  created  with  a  reference  counter  of  2, 
in  which  case  they  will  automatically  be  erased  when  lists  referencing 
them  are  erased. 


Here  is  a  short  series  of  statements  illustrating  the  last  few  MOSLIP 
subprograms  that  have  been  defined: 


L  =  LIST (3) 


create  list  with  name  L 


I  =  LISTMT(L) 
J  =  MTLIST(L) 


K  =  IRALST(L) 


I  is  0  since  L  is  empty 
J  equals  L  after  emptying 


K  equals  reference  counter  of  L  after  erasure 


In  this  example,  list  L  is  created  with  a  reference  counter  of  3.  Since 
L  is  empty  when  created,  variable  I  receives  the  value  0.  The  third  state¬ 
ment  has  no  effect  on  list  L,  since  L  is  already  empty,  but  J  receives  the 


value  of  L.  The  last  statement  erases  list  L  and  sets  K  equal  to  2. 


The  purpose  and  operation  of  reference  counters  is  discussed  more 
fully  in  the  next  section. 

3 .  Storage  and  retrieval  of  information  on  lists 

Two  functions,  NEWTOP  and  NEWBOT,  are  provided  for  storing  data  on 
lists.  The  statement  K  =  NEWTOP (M,L)  causes  datum  M  to  be  "pushed  down" 
on  top  of  the  list  named  L,  or  to  the  right  of  the  cell  with  address  L. 
That  is,  a  new  cell,  whose  relative  address  is  K,  is  taken  from  LAVS, 
datum  M  is  stored  in  its  ICONT  field,  and  the  new  cell  is  inserted  immed¬ 
iately  below  L.  If  M  is  the  name  of  a  sublist,  the  reference  counter  of 
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the  sublist  is  incremented  by  one  and  the  ID  field  of  cell  K  is  set  to  1. 
Otherwise,  the  ID  field  of  cell  K  is  set  to  0. 

Similarly  K  =  NEWB0T(M,L)  causes  datum  M  to  be  "pushed  up"  on  the 
bottom  of  list  L,  or  above  (to  the  left  of)  cell  L.  A  new  cell  K  is  taken 
from  LAVS,  datum  M  is  stored  in  it,  and  cell  K  is  inserted  immediately  to 
the  left  of  cell  L,  or  at  the  bottom  of  list  L. 


Two  converse  functions,  IPOPUP  and  IPOPBT,  remove  data  that  is  stored 
on  lists.  Function  IPOPUP (M.L)  removes  the  cell  below  (to  the  right  of) 
cell  L,  or  the  cell  on  top  of  list  L,  delivering  its  contents  M  before 
returning  it  to  LAVS.  The  value  of  the  function  is  0  unless  L  is  the  last 
cell  on  the  list  (or  list  L  is  empty) ,  in  which  case  the  value  of  the 
function  is  -1,  no  operation  is  performed,  and  M  is  zero. 


Function  IPOPBT (M,L)  similarly  pops  up  the  cell  above  (to  the  left 
of)  cell  L,  or  the  cell  on  the  bottom  of  list  L,  delivering  its  contents  M, 

A  short  example  is  now  given  of  the  use  of  the  storage  and  removal 
functions : 


L  =  LIST (3) 

CALL  NEWTOP (17 ,L) 
CALL  NEWB0T(21,L) 
I  =  IPOPUP (Ml, L) 

J  =  IPOPBT (M2, L) 
K  =  IPOPUP (M3, L) 


create  list  name  L 


store  17  in  cell  at  top  of  list  L 


store  21  in  cell  at  bottom  of  L 
pop  up  contents  Ml  from  top  of  list  L 
pop  up  contents  M2  from  bottom  of  list  L 
attempt  to  pop  up  M3  from  top  of  list  L 


In  this  example,  list  L  is  created  and  the  integer  17  is  stored  in  a  cell 
at  the  top,  and  21  in  a  cell  at  the  bottom  of  L.  Then  both  the  top  and 
the  bottom  cells  are  removed  ("popped"),  with  the  result  that  the  value 
of  Ml  is  17,  M2  is  21,  and  I  and  J  are  both  0.  List  L  is  now  empty  and 
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an  attempt  to  pop  it  up  results  in  M3  equal  to  0,  and  K  is  -1. 

Sometimes  it  is  desired  to  look  at  the  datum  in  the  top  cell  on  a 
list  without  removing  the  cell  that  contains  the  datum.  Function  IT0P(M,L) 
displays  datum  M  on  top  of  list  L,  or  the  datum  in  the  cell  with  address 
L.  No  storing  or  removal  of  cells  on  the  list  occurs.  The  value  of  the 
function  is  0  unless  list  L  is  empty,  or  cell  L  is  at  the  bottom  of  the 
list,  in  which  case  the  value  of  the  function  is  -1  and  M  is  0. 

The  address  of  a  cell  located  a  specified  distance  from  the  top  of 
a  list  may  be  found  using  function  MADNTP(L,N).  The  value  of  the  function 
is  the  address  of  the  cell  that  is  N  cells  from  the  top  of  list  L.  For 
example,  consider  the  following  sequence: 


L  =  LIST(3) 

create  list  named  L 

I  =  ITOP (M,L) 

examine  datum  M  at  top  of  L 

CALL  NEWBOT (1 ,L) 

store  1  in  cell  at  bottom  of  L 

CALL  NEWBOT ( 2, L) 

store  2  in  cell  at  bottom  of  L 

J  =  ITOP (N,L) 

examine  datum  N  at  top  of  L 

K  =  INHALT (MADNTP(L, 2)  K  equals  datum  2  cells  from  top  of  L 

In  this  example,  empty  list  L  is  created  and  an  attempt  is  made  to  examine 
the  datum  in  the  top  cell.  Since  there  are  no  cells  on  the  list  other 
than  the  header,  I  is  -1  and  M  is  0.  Then  data  values  1  and  2  are  stored 
in  cells  on  list  L.  The  datum  N,  which  receives  the  value  1,  on  top  of 
list  L  is  displayed,  and  J  is  0.  Then  the  datum  K,  2  cells  from  the  top 
of  list  L  is  displayed,  and  K  is  2. 


CHAPTER  III 


Establishing  a  Representation 
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ESTABLISHING  A  REPRESENTATION 


The  conventions  by  which  a  list  structural  representation  of  a 
Coursewriter  course  may  be  established  are  described  and  illustrated  in 
Section  A  of  this  chapter.  Section  B  summarizes  the  list  structural 
codes  used  in  the  representation.  A  number  of  utility  programs  used  in 
creating  the  representation  are  described  in  Section  C.  Section  D 
contains  a  description  of  the  method  used  to  program  the  representation 
of  the  implicit  branches  generated  by  the  input  Coursewriter  instructions. 

A.  Conventions  of  the  Representation 

In  this  section,  conventions  are  described  by  which  a  correspondence 
is  established  between  instructional  logic  and  a  list  representation. 

The  Coursewriter  II  instructions  comprising  course  material  and  instruc¬ 
tional  strategy  may  be  represented  by  a  MOSLIP  list  structure  according 
to  the  following  four  conventions. 

Convention  1 

Each  Coursewriter  II  instruction  is  represented  by  one  MOSLIP  cell. 
The  cell  contents  are  the  operation  code  and  modifier  of  the  Course- 
writer  II  instruction,  a  total  of  three  characters.  Labels,  which 
may  be  considered  to  be  minor  instructions,  are  up  to  12  characters 
long,  and  hence  are  represented  by  as  many  as  3  consecutive  cells  on 
a  MOSLIP  list. 

In  general,  it  is  not  necessary  to  represent  the  details  of  an 
instruction  as  specified  by  its  parameters  and  subparameters,  sinae 
these  usually  have  no  effect  on  the  instructional  strategy  or  path 
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which  a  student  would  follow  through  the  course.  However,  this 
generalization  is  not  true  of  the  br  instruction,  nor  the  instruc¬ 
tions  ad,  sb,  mp ,  dv,  lr,  and  Id  which  change  the  values  of  counters, 
switches,  and  return  registers,  and  hence  affect  branching.  The 
parameters  of  these  instructions  are  stored  in  subsequent  MOSLIP 
cells  on  the  same  list,  but  each  parameter  is  preceded  by  a  blank 
character  to  provide  one  column  of  indentation  on  printout. 

Occasionally,  on  account  of  the  implicit  branching  of  the  course 
flow  decision  table,  two  or  more  paths  with  different  conditions  may 
develop  in  the  same  sequence  of  Coursewriter  instructions.  In  such 
a  case,  each  path  receives  a  separate  list  representation,  and  all 
of  the  instructions  in  the  sequence  appear  on  each  path  representation. 

Convention  2 

Sequential  execution  of  instructions  along  any  path  through  a  course 
is  represented  by  consecutive  cells  on  a  list,  from  left  to  right 
(top  to  bottom) . 

Convention  3 

Each  label  and  each  control  instruction  (major  instruction  or  ep) 
begins  a  new  list.  This  means  that  the  MOSLIP  cell  representing  the 
label  or  instruction  is  preceded  by  a  list  header  cell.  Execution 
of  such  an  instruction  is  indicated  by  a  cell  pointing  to  the  list 
header.  This  may  imply  a  merger  of  one  or  more  paths.  The  reason 
for  this  provision  is  that  such  instructions  can,  in  general,  be  the 
destination  of  explicit  or  implicit  branches. 

A  minor  instruction  following  a  synonymous  answer  instruction 
(wb,  cb,  or  ab)  also  starts  a  new  list  since  it  may  be  branched  to 
as  a  result  of  a  "no  execute,  examine  next  instruction"  condition. 


;i>  ■  D  4  t  '  a.- 

;  ic  »c  :  :  in  -  w  n  s  mm  obIb  (c?b  10  fcfo  fcfw) 
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Examples  3  and  4  below  illustrate  this  situation. 

If  the  same  label  or  minor  instruction  occurs  on  more  than  one 
path  generated  by  the  course  flow  decision  table,  a  header  cell  occurs 
on  only  one  such  path. 

Convention  4 

A  branch  is  a  departure  from  sequential  execution  and  is  represented 
by  a  pointer  to  a  sublist.  Such  branches  may  be  either  conditional 
or  unconditional  and  either  explicit  or  implicit.  In  the  case  of 
conditional  implicit  branches  due  to  mismatch  or  time-out  on  a  response 
analysis  or  ep  instruction  respectively,  the  pointer  cell  always 
immediately  follows  the  cell  containing  the  instruction. 

Examples  illustrating  the  application  of  the  four  conventions  are  now 
given.  Figure  2.2  of  Chapter  II  also  illustrated  some  of  the  conventions 
of  the  representation.  In  the  examples,  the  Coursewriter  II  sequence  of 
instructions  is  given  first,  followed  by  its  MOSLIP  representation.  Each 
MOSLIP  cell  is  indicated  by  a  box  and  its  contents  are  printed  in  the  box. 

P  indicates  a  cell  pointing  to  a  sublist  headed  by  a  header  cell  designated 

H. 


Example  1  -  Unconditional  explicit  branch 

In  this  example,  the  label  label2  has  6  characters,  so  its  represen¬ 
tation  requires  two  consecutive  MOSLIP  cells,  with  the  first  4  characters 
in  the  first  cell,  and  the  last  2  in  the  second  cell.  The  label  is  pre¬ 
ceded  by  a  header  so  that  it  may  be  branched  to  from  other  points  in  the 

program.  dt  display  text 


br  label2 


branch  to  label2 
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Figure  3.1  Logic  of  Example  1 

Example  2  -  Conditional  explicit  branch 

The  parameters  of  the  conditional  br  are  each  indented  or  preceded 
by  a  blank.  The  cell  pointing  to  the  label  immediately  follows  the 
parameters  of  the  condition: 

br  label  -t/cl  -\/le  — r/3  branch  to  label  if  counter  1 

is  less  than  or  equal  to  3 

dt  display  text 


true 


br 


Figure  3.2  Logic  of  Example  2 
Example  3  -  Implicit  branches 

This  example  shows  both  conditional  and  unconditional  implicit 
branches.  Following  the  fourth  convention,  the  ca  mismatch  pointer  cell 
immediately  follows  the  cell  containing  the  ca,  whereas  the  match  condi¬ 
tion  involves  only  sequential  execution  and  hence  is  indicated  by  subse¬ 
quent  cells  on  the  same  list.  This  list  ends  with  an  unconditional 
implicit  branch  to  the  minor  pa,  on  account  of  the  T'no  execute  examine 
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next  instruction1,  condition  that  occurs  when  the  cb  is  encountered  on 
this  path.  The  cb  instruction  is  executed  in  case  of  ca  mismatch.  If 
there  is  a  match  on  the  cb,  the  pa  is  executed  first,  otherwise  execution 
skips  immediately  to  the  pr.  The  list  structure  clearly  shows  three  paths 
through  this  sequence: 

ca  correct  answer 

dt  display  text 

cb  synonymous  correct  answer 

pa  pause 

pr  start  new  problem 


mis¬ 

match 


H 


mis-match 


cb 


natch 


H 


Figure  3.3  Logic  of  Example  3 


Example  4  -  Two  paths  through  the  same  sequence 

In  the  discussion  of  the  first  convention  it  was  mentioned  that  two 
or  more  paths  could  develop  through  the  same  sequence  of  instructions. 

An  example  of  this  situation  is  the  pa  instruction  in  the  following 
sequence.  The  pa  instruction  has  two  separate  representations  because 
it  appears  on  two  paths  under  different  conditions  with  different  logical 
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outcomes.  When  pa  is  executed  following  a  match  on  ab,  the  nx  is 
encountered  but  not  executed  as  a  skip  occurs  to  the  next  major  (pr) . 
However,  when  pa  is  executed  following  execution  of  the  first  nx,  ab  is 
skipped  ("no  execute,  examine  next  instruction")  and  the  second  nx  is 
executed.  Thus  the  pa  occurs  in  two  cells,  only  one  of  which  is 
preceded  by  a  header. 


aa 

additional  answer 

dt 

display  text 

nx 

conditional  execute 

dg 

display  graphic 

ab 

synonymous  additional  answer 

pa 

pause 

nx 

conditional  execute 

dl 

display  emphasis  line 

pr 

start  new  problem 

H 


aa 


match 


dt 


mis¬ 

match 


H 


nx 


±1 


H 


dg 


ab 


match 


pa 


mis¬ 

match 


H 

7iv- 


H  4  pa  -■  P 


nx 


dl 


H 

"TIC 


pr 


Figure  3.4  Logic. of  Example  4 
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B .  List  Structural  Codes 

In  order  to  set  up  a  MOSLIP  representation  of  an  arbitrary  input 
Coursewriter  II  course  program,  the  four  conventions  described  in  the 
previous  section  need  to  be  applied.  In  addition  to  meeting  the  conven¬ 
tions,  the  representation  should  store  all  necessary  information  in  order 
that  the  instructional  logic  of  the  course  can  be  effectively  traced  and 
simulated.  To  meet  these  requirements,  codes  are  established  for  the 
Coursewriter  II  instructions  affecting  branching,  and  for  all  the  condi¬ 
tions  occuring  in  the  course  flow  decision  table  (Figure  2.1),  In  addi¬ 
tion,  a  small  number  of  special  codes  are  created  to  represent  certain 
list  structural  situations  and  information  for  printing  a  logic  chart. 

All  codes  used  are  integers,  positive  or  negative. 

The  operation  code  for  Coursewriter  II  instructions  affecting 
branching  is  given  in  Figure  3.5.  There  are  20  such  instructions, 
including  all  majors  and  ep ,  br,  tr,  ad,  sb,  mp,  dv ,  lr ,  Id  (except  load 
buffer) ,  and  fn.  Each  such  instruction  is  coded  as  an  integer  between 
1  and  20 . 


ea 

nx 

a,  a 

ca 

wa 

un 

pr 

wb 

cb 

ab 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

ep 

br 

tr 

ad 

sb 

mp 

dv 

lr 

Id 

fn 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

Figure  3.5  Coursewriter  Instruction  Code 


The  Coursewriter  instruction  code  is  used  in  a  number  of  ways  to 
establish  the  list  structural  representation  of  a  sequence  of  Coursewriter 
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instructions.  Initially,  the  code  is  used  by  the  mainline  program  to 
identify  an  instruction.  The  instruction  code  is  then  stored  in  the  list 
structure,  along  with  the  instruction  itself. 

A  control  instruction  (major  or  ep)  is,  according  to  the  third 
convention,  preceded  by  a  list  header.  This  is  true  also  of  every  label, 
and  of  each  minor  instruction  following  a  synonymous  answer  (wb,  cb,  ab) . 

The  instruction  code  is  stored  in  the  contents  (ICONT  field)  of  the 
header  as  indicated  in  Figure  3.6. 


Code 

Meaning 

-12  to  -1 

Label  (negative  character  length) 

-1 

single  character  label  or  any  other  list 

0 

minor  other  than  ep 

1 

ea 

2 

nx 

3 

aa 

4 

ca 

5 

wa 

6 

un 

8 

wb 

9 

cb 

10 

ab 

11 

ep 

more  than  100 

pr  (in  sequence) 

Figure  3.6  Header  Contents  Code 


The  length  of  a  label,  up  to  12  characters,  is  stored  as  a  negative 
integer  in  the  contents  of  the  corresponding  header  cell.  The  code  -1  may 
refer  to  a  single  character  label,  or  it  may  be  the  contents  of  any  other 
list,  such  as  the  working  lists  LW(1)  to  LW(10).  The  header  preceding  a 
control  instruction  contains  the  corresponding  instruction  code,  1  to  11, 
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except  for  the  pr  instruction.  Problems  (pr)  are  given  a  sequence  number 
in  the  order  in  which  they  are  encountered  in  a  course,  beginning  at  101, 
and  this  sequence  number  is  stored  in  the  contents  of  the  header  of  each 
pr  list. 

The  remaining  Coursewriter  II  instructions  that  affect  branching, 
coded  12  to  20  in  Figure  3.5,  are  not  preceded  by  a  list  header.  Instead 
the  instruction  code  is  stored  in  the  ID  field  of  the  MOSLIP  cell  that 
contains  the  instruction.  The  ID  or  identification  field  is  used  for  a 
number  of  purposes  as  summarized  in  Figure  3.7. 

As  indicated  in  Figure  3.7,  an  ID  of  2  or  more  identifies  a  cell  as 
a  list  header.  The  amount  by  which  the  ID  exceeds  2  is  the  value  of  the 
reference  counter,  which  is  the  number  of  times  the  list  is  referenced  as 
a  sublist.  This  represents  the  number  of  possible  paths  of  execution 
along  which  subsequent  instructions  lie.  The  reason  for  the  header  is 
given  in  the  ICONT  field  of  the  same  cell,  coded  as  in  Figure  3.6. 

An  ID  of  1  denotes  that  the  cell  contains  the  name  of  a  sublist 
representing  an  instruction  encountered  through  merging  or  ordinary 
sequential  execution,  according  to  the  third  convention.  An  ID  of  0 
indicates  that  the  cell  contains  1  word  of  Hollerith  characters. 

Departures  from  sequential  execution  are  represented  by  pointers  to 
sublists  according  to  the  fourth  convention.  The  type  of  branch  is  coded 
in  the  ID  field  of  the  pointer  cell  containing  the  name  of  the  sublist. 

An  ID  of  -3  or  -4  identifies  a  cell  containing  the  name  of  a  sublist  to 
which  a  branch  occurs  on  condition  of  time-out  or  mismatch  respectively. 
Any  other  departure  from  sequential  execution  is  designated  by  a  pointer 


cell  with  an  ID  of  -2. 


■ 
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Code 

Meaning 

2  or  more 

header  and  reference  counter 

1 

merge  to  name  contained 

0 

contains  1  word  characters 

-2 

branch  to  name  contained 

-3 

conditional  branch:  ep  time-out 

-4 

conditional  branch:  mismatch 

-5 

contains  an  integer 

-6 

contents  and  subsequent  cell  form  2  word  characters 

-7 

contents  and  subsequent  2  cells  form  3  word  characters 

-8 

suppress  printing  of  contents 

-12 

conditional  br 

-14 

ad 

-15 

sb 

-16 

mp 

-17 

dv 

-18 

lr 

-19 

Id 

Figure  3. 

7  Cell  ID  Code 

An  ID  of  -5  indicates  that  the  cell  contains  an  integer,  instead  of 
characters.  This  is  used,  for  example,  to  store  parameters  of  instruc¬ 
tions  such  as  ad  or  Id  that  refer  to  the  values  of  counters  or  switches. 

As  already  mentioned,  a  cell  containing  characters  in  its  ICONT  field 
has  an  ID  of  0,  unless  the  characters  form  a  unit  whose  length  exceeds  4. 
In  the  latter  case,  the  unit  requires  more  than  one  cell  for  its  storage. 
As  many  as  three  consecutive  cells  are  used  to  store  labels,  which  may  be 
as  long  as  12  characters.  The  ID  of  the  first  cell  indicates  the  number 
of  cells  required,  with  -6  denoting  2  consecutive  cells,  and  -7  denoting 
3  cells.  The  ID  of  each  of  the  extra  cells  is  set  to  0. 
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Two  cells  are  also  required  to  store  a  reference  to  a  switch  such  as 
SlOa,  which  is  4  characters  long,  but  is  preceded  by  a  single  blank  char¬ 
acter  for  indentation  during  printing,  making  a  total  of  5  characters. 

In  this  case,  the  blank  and  the  first  three  characters  are  stored  in  a 
cell  with  an  ID  of  -6,  and  the  last  character  is  stored  in  the  next  cell 
on  the  same  list,  with  an  ID  of  0. 

Occasionally  it  is  desirable,  during  printing  of  the  logic  chart,  to 
suppress  the  printing  of  the  contents  of  a  cell.  The  ID  field  of  such  a 
cell  is  set  to  -8.  For  example,  an  ID  of  -8  is  given  to  the  cell  contain¬ 
ing  the  value  of  the  IUNI  counter,  which  is  a  count  of  the  number  of  un 
instructions  for  each  un  following  an  ep.  This  is  an  internal  counter  used 
only  for  determining  the  un  (counter)  match  or  mismatch  condition.  Compar¬ 
ison  is  made  with  the  IUN2  counter  whose  value  is  equal  to  the  number  of 
times  the  ep  has  been  executed.  An  ID  of  -8  is  also  used  for  the  cell  that 
stores  the  address  of  a  label  loaded  into  a  return  register  by  the  lr 
instruction. 

An  ID  of  -12  indicates  that  a  cell  contains  a  conditional  br  instruc¬ 
tion.  The  parameters  or  items  forming  the  condition  follow  in  subsequent 
cells,  each  indented  by  one  blank  character. 

ID  values  of  -14  to  -19  indicate  that  the  contents  of  a  cell  is  an 
instruction  coded  14  to  19  respectively,  according  to  the  instruction  code 
(Figure  3.5).  These  are  the  instructions  ad,  sb,  mp,  dv,  lr  and  Id. 

Examples  are  now  given  illustrating  the  use  of  the  header  contents 
code  (Figure  3.6)  and  the  cell  ID  code  (Figure  3.7).  In  the  following 
four  diagrams  (Figures  3.8  to  3.11),  a  cell  is  shown  as  a  box  divided  into 
two  parts,  with  the  upper  part  containing  the  ID  or  identification  field, 
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and  the  lower  part  the  ICONT  or  contents  field.  Characters  are  shown  left 
justified,  while  integers  are  right  justified  (as  far  to  the  right  as 
possible)  within  their  part  of  a  box.  Pointers  to  sublists  are  again 
designated  P,  but  headers  are  identified  merely  by  an  ID  greater  than  or 
equal  to  2. 


Figure  3.8  Coding  Example  2 

Figure  3.8  is  an  elaboration  of  example  2  of  the  previous  section, 
showing  the  complete  coding  of  the  ID  and  ICONT  fields  of  the  MOSLIP 
representation  of  the  sample  of  Coursewriter  coding.  The  first  cell  has 
an  ID  of  -12  and  contains  a  conditional  br  instruction.  The  following 
two  items,  cl  and  le,  are  each  indented  by  one  blank  character  and  have 
an  ID  of  0.  The  last  item  of  the  condition  is  the  integer  3  contained 
in  a  cell  with  an  ID  of  -5. 

In  case  the  condition  is  true,  the  pointer  cell  follows  with  an  ID  of 
-2  indicating  a  departure  from  sequential  execution.  Otherwise,  dt  is 
executed,  as  shown  stored  in  a  cell  with  0  ID.  When  the  condition  is  true, 
the  branch  is  to  label,  headed  by  a  header  cell  with  an  ID  of  3,  indicating 
no  other  references  to  this  label.  The  contents  of  the  header  cell  is  -5, 
indicating  a  label  of  length  5  characters.  The  label  label  is  contained 
in  two  consecutive  cells,  the  first  of  which  has  an  ID  of  -6,  indicating 
that  another  cell  follows,  with  an  ID  of  0. 
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Figure  3.9  Coding  Example  3 

Figure  3.9  is  an  elaboration  of  Example  3  of  the  previous  section. 

The  ca  instruction  is  preceded  by  a  header  cell  with  a  contents  of  4, 
which  is  the  ca  instruction  code  (Figure  3.5).  In  case  of  mismatch,  a 
pointer  cell  with  an  ID  of  -4  indicates  a  branch  to  cb,  headed  by  a 
header  cell  with  an  ID  of  3  and  contents  of  9.  In  case  of  a  match  on  the 
ca,  the  dt  is  executed  and  then  a  merge  takes  place  to  the  pa  instruction 
as  indicated  by  a  pointer  cell  with  an  ID  of  1.  The  merge  is  with  the 
path  generated  by  a  cb  match  condition.  The  reference  counter  of  the 
header  cell  preceding  the  pa  instruction  has  been  incremented  twice  and 
hence  the  ID  is  4,  while  the  ICONT  field  is  0  indicating  a  minor  instruc¬ 
tion.  The  pa  is  followed  by  sequential  execution  of  pr,  as  indicated  by 
a  pointer  with  an  ID  of  1.  The  header  of  the  pr  instruction  also  has  an 
ID  of  4,  since  merger  takes  place  with  the  path  generated  in  case  of  mis¬ 
match  on  cb.  The  pr  header  has  a  contents  of  101,  indicating  the  first 
pr  encountered  in  the  course. 


' 

' 
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Figure  3.10  Coding  an  un  Instruction 


Figure  3.10  shows  the  coding  for  the  first  of  a  series  of  un  (unrec¬ 
ognizable  response)  instructions.  The  un  is  preceded  by  a  header  cell 
containing  a  6  in  the  ICONT  field  in  accordance  with  the  header  contents 
code  of  Figure  3.6.  The  value  of  the  IUNI  counter  is  1,  indicating  the 
first  of  a  series  of  un  instructions,  and  the  integer  1  is  shown  in  a  cell 
with  ID  equal  to  -8  to  suppress  printing.  When  the  un  is  executed,  counter 
IUNI  is  compared  with  internal  counter  IUN2,  whose  value  is  equal  to  the 
number  of  times  the  preceding  ep  instruction  has  been  executed.  If  the 
counters  match,  the  instructions  following  the  un  are  executed,  otherwise 
a  branch  is  made  as  shown  by  the  pointer  P. 


Figure  3.11  Coding  an  lr  Instruction 

Coding  of  the  instruction  lr  label  -i/rr2  is  shown  in  Figure  3.11. 

The  lr  instruction  is  contained  in  a  cell  with  an  ID  of  -18,  in  agreement 
with  the  cell  ID  code  of  Figure  3.7.  The  label  address  603  is  stored  next 
in  a  cell  with  ID  of  -8  to  suppress  printing.  Label  addresses  are  gener¬ 
ated  by  function  NULABL  discussed  in  the  next  section.  The  label  is 
stored  in  the  next  two  cells,  the  first  of  which  has  ID  equal  to  -6  to 
indicate  that  another  cell  follows.  The  label  is  preceded  by  a  blank 
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character  in  the  first  of  the  two  cells  to  provide  for  indentation  during 
printout.  The  item  rr2  is  also  preceded  on  the  left  by  a  blank  character 
in  the  last  cell. 

A  complete  summary  of  the  utilization  of  the  four  fields  of  a  MOSLIP 

f°r  simulating  or  representing  the  logic  of  a  Coursewriter  II  course 
is  given  in  Figure  3.12.  In  this  figure,  the  four  fields  of  a  cell  are 
shown  as  columns  of  the  table,  and  the  possible  values  in  each  field  are 
in  the  rows  of  the  table.  The  ID  or  identification  field  provides  summary 
information  about  the  contents  (ICONT  field)  of  the  cell,  while  LNKL  and 
LNKR  always  store  the  addresses  of  the  cells  linked  to  the  left  and  right 
respectively.  Figure  3.12  combines  and  relates  Figure  3.6  and  Figure  3.7. 

C .  Utility  Routines 

The  list  structural  representation  of  an  arbitrary  input  sequence  of 
Coursewriter  II  instructions  is  created  in  one  pass.  This  is  done  by  a 
mainline  program,  CL2,  and  function  MAJOR  discussed  in  the  next  section  on 
implicit  branches.  In  order  to  create  a  list  structure  in  agreement  with 
the  conventions  and  codes  just  described,  a  number  of  more  general  proces¬ 
ses,  referred  to  here  as  utility  routines,  are  required. 

Character  manipulation  operations  required  for  establishing  the  repre¬ 
sentation  include  character  packing  and  unpacking.  Packing  is  necessary 
in  order  to  store  condensed  information  in  cells,  but  occasionally  unpack¬ 
ing  must  be  done  to  place  data  in  suitable  form  for  printing.  Whole  char¬ 
acter  strings  may  need  to  be  packed,  and  the  length  of  strings  up  to 
specified  delimiters  determined.  Integers  need  to  be  computed  from  their 
character  representation  in  order  that  arithmetic  may  be  performed.  The 
reverse  operation  of  computing  the  character  representation  corresponding 
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ID 

LNKL 

LNKR 

ICONT 

more  than  100  —  pr  (in  sequence  order) 

11  —  ep 

10  —  ab 

2 

9  —  cb 

or 

8  —  wb 

more 

6  —  un 

5  —  wa 

header 

4  —  ca 

and 

3  —  aa 

reference 

[ 

2  —  nx 

counter 

1  —  ea 

j 

0  —  minor  other  than  ep 

1 

1 

-1  —  single  character  label  or  any  other 

list 

to 

to 

-1  to  -12  —  label  (negative  character  length) 

16000 

16000 

1 

merge  to  name  contained 

0 

contains  1  word  characters 

link 

link 

-2 

branch  to  name  contained 

left 

right 

-3 

conditional  branch:  ep  time  out 

-4 

conditional  branch:  mismatch 

-5 

contains  an  integer 

-6 

contents  and  subsequent  cell  form  2  word  characters 

-7 

contents  and  subsequent  2  cells  form  3  word  characters 

-8 

suppress  printing  of  contents 

-12 

conditional  br 

-14 

ad 

-15 

sb 

-16 

mp 

-17 

dv 

-18 

lr 

-19 

1 _ _  - _ 

Id 

Figure  3.12  MOSLIP  Cells  for  Coursewriter  II  Representation 
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to  an  integer  is  also  required  in  order  that  all  information  can  be 
printed  in  a  common  format. 

Two  general  list  processes  required,  in  addition  to  those  provided 
by  MOSLIP,  include  searching  and  copying.  When  creating  the  list  structure 
and  printing  it,  lists  are  set  up  that  store  information  about  the  opera¬ 
tions,  and  these  must  be  searched  at  later  times  to  find  the  data  that  has 
been  stored.  Copying  is  necessary  when  more  than  one  path  develops  through 
a  sequence  of  instructions. 

Finally,  processes  are  required  to  dissect  and  store  labels  and  instruc¬ 
tions  in  accordance  with  the  conventions  and  codes.  Labels  must  be  identi¬ 
fied,  stored,  and  assigned  a  unique  address.  For  instructions  that  affect 
branching,  the  parameters  must  be  separated,  interpreted  and  stored. 

Programs  that  carry  out  these  utility  processes  are  now  described 
individually  in  more  detail. 

1 .  Character  Manipulation 

Character  manipulation  operations  are  performed  by  five  subprograms: 
PACK,  UNPACK,  SPACK,  LIMTER,  and  HOLLER.  Four  characters  may  be  packed 
into  a  360  word  by  the  function  PACK(I1,  12,  13,  14).  The  four  arguments 
II  to  14  are  the  four  characters  to  be  packed,  each  left  justified  in  its 
own  word.  The  value  of  PACK  is  the  resultant  packed  word  with  a  floating¬ 
point  or  real  name.  Entry  IPACK(I1,  12,  13,  14)  may  be  used  if  the  packed 
word  is  to  have  a  fixed-point  or  integer  name. 

The  inverse  function  is  UNPACK(I,  IB).  The  symbol  I  represents  the 
word  to  be  unpacked,  and  IB  is  the  byte  number,  1  to  4  only.  The  value  of 
UNPACK  is  the  character  that  is  unpacked  from  byte  IB  of  word  I,  left 


' 


43 


justified  with  blanks  in  the  rightmost  three  bytes.  UNPACK  is  used  if  the 
unpacked  character  is  to  have  a  real  name,  otherwise  entry  IUNPAK(I,IB) 
unpacks  byte  IB  from  word  I  and  gives  the  result  an  integer  name.  Both 
PACK  and  UNPACK  require  subroutine  EQUAL (Y,X)  which  sets  Y  equal  to  X 
regardless  of  real  and  integer  naming  conventions.  Arguments  II,  12,  13, 
and  14  of  PACK,  and  argument  I  of  UNPACK,  can  be  either  real  or  integer. 

For  example,  the  value  of  PACK(IUNPAK(X, 1) ,  IUNPAK(X,2),  IUNPAK(X,3) , 
IUNPAK(X, 4) )  is  X.  As  another  example,  the  value  of  IPACK (UNPACK (' SKI ', 1) , 
UNPACK ( ’ SUN’ , 3) ,  UNPACK( ' POLE ' , 2) ,  UNPACK ( ’ TOW ' , 3 ) )  is  'SNOW'.  The  effect 
of  PACK  is  to  change  4  characters  from  A1  format  to  A4  format,  while  UNPACK 
changes  1  character  from  any  position  in  A4  format  to  A1  format. 

A  vector  string  of  characters  in  A1  format  may  be  packed  into  a  vector 
of  words  of  A4  format  using  subroutine  SPACK(STRING,  LENGTH,  PACKED,  N) . 
Input  is  a  character  vector  STRING  of  a  specified  LENGTH  in  A1  format,  with 
each  character  left-justified  in  its  word.  Output  is  a  PACKED  character 
vector  string  of  length  N  words,  with  4  characters  per  word  in  A4  format. 

The  last  or  N'th  word  of  PACKED  contains  up  to  3  blanks  to  the  right  in 
order  to  fill  up  the  word.  For  example,  if  STRING(l)  to  STRING(6)  have  the 
values  ' S ’ , ' T ’ , ' R' , ’ I ’ , ’N ’ , ' G '  respectively,  then  the  statement  CALL  SPACK 
(STRING, 6,  PACKED, N)  produces  PACKED(l)  equal  to  ' STRI ' ,  PACKED(2)  equal 
to  'NG* ,  and  N  equal  to  2. 

The  length  of  a  character  vector  string  of  format  Al,  up  to  a  specified 
delimiter,  is  found  by  function  LIMTER ( STRING ,  LENGTH,  DELIMT ,M,N) .  The 
input  character  vector  STRING  has  a  maximum  total  LENGTH  in  Al  format  with 
each  character  left-justified  in  its  word.  The  delimiter  DELIMT  consists 
of  M  consecutive  characters.  The  maximum  M  is  4  characters  left-justified 
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and  packed  into  the  word  DELIMT.  The  value  of  the  function  is  also  the 
value  of  N,  which  is  the  length  of  the  string  up  to  but  not  including  the 
delimiter.  For  example,  if  STRING(l)  to  STRING(8)  have  the  values  'S', 
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'T' , 'R' , 'If , ’N' , ’G' , '-V  , '/'  respectively,  STRING(9)  to  STRING(80)  are  any 
characters,  and  the  delimiter  is  T  — »/ T  of  length  2,  then  the  value  of 
LIMTER(STRING,80 T  — »/ ’ ,2,N)  is  6,  and  N  also  receives  the  value  6. 

Some  common  delimiters  occurring  on  Coursewriter  II  cards  are  the 
0-8-2  punch  (enter  symbol)  denoting  the  end  of  a  statement,  denoting 

continuation  of  a  statement  on  a  subsequent  card,  and  T  — »/ T  which  separates 
the  parameters  of  an  instruction. 

An  integer  of  magnitude  less  than  100,000  receives  a  character 
representation  for  each  of  its  digits  by  subroutine  HOLLER ( IHOLL , INT , IP) . 
The  input  integer  INT  is  converted  to  a  packed  character  string  IHOLL  of 
length  2  words  of  type  A4,  and  to  an  unpacked  character  string  IP  of  length 
8  words  of  format  Al.  The  individual  digits  of  the  integer  are  left- 
justified  in  each  string,  with  blanks  filling  any  remaining  space  to  the 
right.  For  example,  if  the  integer  INT  has  the  value  769,  then  the  state¬ 
ment  CALL  HOLLER ( IHOLL , INT , IP )  produces  IHOLL(l)  =  '769',  IH0LL(2)  is 
blank,  IP(1)  is  '7?,  IP(2)  is  ’6’,  IP(3)  is  ’9’,  and  IP(4)  to  IP(8)  are 
blank. 

2 .  List-processing  subprograms 

Two  list-processing  subprograms  of  general  applicability  are  IFIND 
and  LCOPY .  Function  IFIND (M,L,K)  searches  list  L  from  the  top  for  a  cell 
containing  datum  M.  If  such  a  cell  is  found,  then  K  is  the  cell  address 
and  the  value  of  the  function  is  0.  If  the  datum  M  is  not  found  on  list 
L,  then  the  value  of  the  function  is  -1. 
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Function  LCOPY(ILST,NLST)  copies  the  ID  and  contents  of  consecutive 
cells  on  a  list  beginning  with  the  first  cell  below  ILST,  and  storing  the 
copied  cells  on  the  bottom  of  the  list  with  address  NLST .  The  value  of 
the  function  is  NLST.  Pointer  cells  with  an  ID  of  1  are  not  copied,  but 
descent  is  made  into  the  indicated  sublist  and  its  cells  are  copied  onto 
the  bottom  of  NLST.  This  subprogram  is  used  by  function  MAJOR  to  copy  a 
sequence  of  instructions  when  two  or  more  paths  with  different  outcomes 
develop  by  implicit  branching. 

3 .  Dissecting  and  storing  instructions 

Labels  are  identified,  stored,  and  assigned  a  unique  address  by 
function  NULABL (LABEL, N) .  The  character  vector  LABEL  of  length  N  is 
packed  from  A1  format  into  temporary  storage  in  A4  format.  Working  list 
LW(7) ,  which  stores  the  addresses  of  all  labels,  is  searched  and  if  LABEL 
is  found  its  address  is  returned  as  the  value  of  the  function.  If  LABEL 
is  not  found  on  LW(7),  then  a  new  list  is  created  to  represent  the  label, 
LABEL  is  stored  in  packed  form  on  the  new  list,  and  the  address  of  the  new 
list  is  stored  on  LW(7)  and  returned  as  the  value  of  the  function.  NULABL 
also  stores  the  appropriate  codes  in  the  label  header  and  in  the  cells  on 
the  new  list  that  is  created  if  necessary.  Function  NULABL  is  called  by 
subprograms  BR  and  LR  as  well  as  by  the  main  program. 

The  main  program,  given  the  name  CL2,  reads  Coursewriter  II  program 
cards  one  at  a  time  into  the  integer  vector  COL  in  format  (80A1) .  The 
label  or  instruction  is  identified  and,  if  it  is  to  be  executed,  it  is 
stored  in  a  new  cell  on  the  bottom  of  the  current  execution  list  LST. 

Then  subroutine  LR,  BR,  TR  or  DISECT  is  called  in  case  the  instruction  is 
lr,  br,  tr  or  one  of  (ad,sb,mp,dv,ld)  respectively.  These  subroutines 
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dissect  and  store  the  parameters  of  the  corresponding  instructions,  accord¬ 
ing  to  the  conventions  and  codes  previously  described.  The  parameters  are 
stored  in  consecutive  cells  on  the  current  list. 

Subroutine  BR  sets  up  an  explicit  branch  to  a  label,  last  executed  ep, 
a  pr,  or  a  return  register.  First  the  subroutine  determines  whether  the 
branch  is  conditional  or  unconditional.  For  a  conditional  br,  a  flag  is 
reset  and  subroutine  BRC  is  called  to  store  the  items  making  up  the  condi¬ 
tion.  Then  subroutine  BR  determines  the  destination  of  the  branch,  which  is 
the  address  of  the  header  of  a  sublist  according  to  Convention  4. 

For  an  explicit  branch  to  a  label,  subroutine  BR  calls  NULABL.  If  the 
destination  of  a  branch  is  the  last  executed  ep,  working  list  LW(9)  is 
designated  as  the  sublist.  LW(9)  holds  the  address  of  the  last  encountered 
ep,  which  is  updated  by  subroutine  MAJOR.  If  MAJOR  cannot  determine  from 
the  static  logic  that  the  last  executed  ep  is  the  same  as  the  last  encoun¬ 
tered  ep,  then  LW(9)  is  set  equal  to  the  "TO  EP"  list  LW(10) ,  as  described 
in  the  next  section. 

For  an  explicit  branch  to  a  pr,  working  list  LW(8)  is  searched  to  find 
the  appropriate  sublist.  LW(8)  holds  the  addresses  of  the  current  pr  and 
the  next  seven  consecutive  pr's  that  may  be  branched  to.  Subroutine  MAJOR 
updates  LW(8)  whenever  a  pr  is  encountered  in  the  input  data.  If  the 
branch  is  to  a  return  register,  subroutine  BR  designates  sublist  LW(1)  to 
LW ( 6 ) ,  representing  return  registers  rrO  to  rr5  respectively.  Working 
lists  LW(1)  to  LW(6)  contain  only  one  cell,  which  holds  the  name  of  the 
correponding  return  register. 

Subroutine  TR  sets  up  a  transfer  to  a  label  in  another  segment.  A  new 
list  is  created  to  represent  each  such  label  encountered,  and  these  labels 


Last  executed  control  instruction  and/or  current  condition 
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(see  Figure  3.14  for  explanation  of  numbers  in  the  table) 


48 


Code 

Execution  Decision 

0 

execute 

1 

no  execute  —  return  to  un 

2 

no  execute  —  skip  to  pr 

3 

no  execute  —  examine  next  instruction 

4 

no  execute  —  skip  to  next  major 

5 

no  execute  —  return  to  last  executed  ep 

Figure  3.14  Execution  Decision  Code 


are  not  stored  on  the  labels  working  list  LW(7) .  Subroutine  TR  stores  on 
the  new  list  both  the  name  of  the  label  and  the  segment  number  to  which 
the  transfer  is  indicated. 

D.  Implicit  Branching 

Most  of  the  work  of  determining  implicit  branches  and  setting  up 
their  list  representation  is  done  by  subroutine  MAJOR.  The  nature  and 
location  of  implicit  branches  is  determined  from  the  Course  Flow  Decision 
Table  (Figure  2.1) ,  which  is  stored  as  a  table  of  coded  integers  (Figure 
3.13) in  subroutine  Major. 

In  the  Decision  Table  Code  of  Figure  3.13,  the  currently  encountered 
instruction  is  found  along  the  rows,  which  are  numbered  1  to  11  as  in  the 
Coursewriter  Instruction  Code  of  Figure  3.5.  The  last  executed  instruc¬ 
tion  and/or  current  condition  is  found  in  the  columns  of  Figure  3.13, 
while  the  decision  to  be  taken  with  respect  to  the  current  instruction  is 
found  in  the  body  of  the  table.  The  decisions  themselves  are  coded  as 
integers  0  to  5,  with  meaning  as  explained  in  Figure  3.14,  the  Execution 


Decision  Code. 
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In  the  Execution  Decision  Code  of  Figure  3.14,  the  decision  to 
execute  is  coded  0,  while  no  execute  is  coded  1  to  5  depending  on  the 
destination  of  the  implicit  branch,  if  any.  Codes  1,  2,  4  and  5  designate 
the  execution  of  an  instruction  other  than  the  current  one,  while  code  3 
indicates  that  the  next  instruction  is  to  be  examined  with  no  change  in 
the  current  condition.  Decision  code  4  -  skip  to  next  major  -  is  also 
included  in  the  Decision  Table  Code,  column  10,  while  column  11  indicates 
that  any  instruction  is  executed  following  an  explicit  branch  to  a  label. 

The  implication  of  the  Decision  Table  Code  of  Figure  3.13  is  that  one 
or  more  paths  of  execution  and/or  non-execution  may  develop  automatically 
or  implicitly  in  a  given  sequence  of  Coursewriter  instructions.  This  may 
be  seen  particularly  from  row  11,  which  applies  to  all  minor  instructions 
as  well  as  ep.  Row  11  consists  only  of  0's  and  3’s,  indicating  that  either 
a  minor  instruction  is  executed,  or  else  the  next  instruction  is  examined. 
Along  any  path,  a  consecutive  series  of  minor  instructions  is  either 
executed,  or  else  merely  examined  until  the  next  major  instruction  is 
encountered.  This  means  that  all  paths  may  be  classified  into  two  types: 
paths  along  which  a  minor  instruction  will  be  executed  ('‘continuation" 
paths) ,  and  paths  along  which  a  minor  instruction  will  not  be  executed 
but  the  next  instruction  will  be  examined  ("branch"  paths) . 

Continuation  paths  (columns  6  to  9  and  column  11  of  Figure  3.13)  and 
branch  paths  (columns  1  to  5  and  10)  develop  from  the  execution  of  a  major 
instruction  or  ep,  or  by  explicit  branch  to  a  label  (column  11  only).  The 
branch  and  continuation  conditions  so  generated  form  the  columns  of  the 
Decision  Table  Code  of  Figure  3.14.  A  complete  list  of  these  generated 
conditions  and  their  origin  is  given  in  Figure  3.15. 
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Code 

Instruction 
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Condition  1 

Continuation  | 
Condition  2 
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un 
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11 

ep 

label 

2  7 

11 

Figure  3.15  Branch  and  Continuation  Conditions 


Figure  3.15  lists  the  conditions  of  the  branch  and  continuation  paths 
generated  by  each  control  instruction  and  label.  Execution  of  any  one  of 
these  instructions  produces  a  continuation  condition  (condition  2)  whose 
code  is  given  in  the  last  column  of  Figure  3.15,  and  which  is  used  to 
determine  the  appropriate  column  of  the  Decision  Table  Code  of  Figure  3.13 
when  a  new  instruction  is  encountered.  Most  of  the  instructions  of  Figure 
3.15  also  generate  a  branch  path  whose  condition  is  given  in  the  previous 
column  (condition  1).  However,  ea,  pr,  and  labels  do  not  generate  branch 
paths,  so  their  branch  condition  is  coded  as  0,  The  branch  condition  code 
is  also  used  to  determine  the  appropriate  column  of  Figure  3.13  to  find  out 
the  execution  status  of  subsequent  instructions  that  are  encountered. 

In  order  to  keep  track  of  the  multiplicity  of  paths  and  conditions 
which  could  potentially  develop  through  implicit  branching,  two  current 
lists  LCURR(l)  and  LCURR(2)  are  created  and  used  to  store  essential  infor¬ 
mation  about  branch  and  continuation  paths  respectively.  LCURR(l)  and 
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LCURR(2)  store  consecutively  the  list  header  address  of  the  last  control 
instruction  or  label  executed,  and  the  corresponding  branch  or  continuation 
code.  Any  number  of  path  headers  and  their  conditions  can  be  stacked  on 
each  list,  with  the  most  recent  on  top. 

The  mainline  program  CL2  creates  lists  LCURR(l)  and  LCURR(2),  and 
initializes  LCURR(l)  to  the  list  representing  the  beginning  of  the  sequence 
of  Coursewriter  instructions  whose  representation  is  to  be  established. 

CL2  also  stacks  the  label  header  address  and  condition  code  11  on  top  of 
LCURR(2)  whenever  a  label  is  encountered,  assuming  that  the  label  may  be 
branched  to  from  elsewhere  in  the  course.  For  the  same  reason  the  last 
executed  ep  list  LW(9)  is  set  equal  to  the  more  general  "TO  EP"  list  LW(10) 
after  a  label  is  encountered,  since  the  label  may  be  branched  to  after 
execution  of  some  ep  other  than  the  last  ep  encountered.  Working  list 
LW(10)  contains  only  two  cells  storing  the  information  "TO  EP",  and  no 
attempt  is  made  to  determine  which  ep  is  to  be  represented.  The  appropriate 
ep  can  be  determined  when  the  list  structural  representation  is  later 
traced.  Whenever  a  minor  instruction  is  encountered,  it  is  stored  only  on 
the  topmost  continuation  list  of  LCURR(2) . 

Subroutine  MAJOR  is  called  whenever  a  control  instruction,  TR,  or 
unconditional  BR  is  encountered.  Current  lists  LCURR(l)  and  LCURR(2)  are 
popped  to  determine  the  outcome  of  each  current  branch  or  continuation  path 
that  has  not  yet  been  disposed  of.  Each  continuation  list  is  checked  to 
see  whether  or  not  its  execution  outcome  is  the  same  as  the  previous  con¬ 
tinuation  list  above.  If  the  outcome  or  decision,  as  determined  from  the 
decision  table  code,  is  the  same,  then,  unless  the  decision  is  to  examine 
the  next  instruction,  the  first  or  upper  list  is  stored  on  the  second  or 
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lower  list.  Thus  a  merger  of  paths  is  created  in  agreement  with  Conven¬ 
tion  3.  If  the  decision  with  respect  to  two  continuation  paths  stacked 
consecutively  on  LCURR(2)  is  different,  or  if  the  decision  is  to  examine 
the  next  instruction,  then  the  upper  continuation  list  is  copied  onto  the 
lower  by  function  LCOPY  described  in  the  previous  section. 

Function  MAJOR  determines  a  list  LISTEX  to  represent  the  currently 
encountered  control  instruction,  if  it  is  to  be  executed.  All  branch  or 
continuation  paths  are  then  disposed  of  in  terms  of  their  outcomes  from 
the  Decision  Table  Code  of  Figure  3.13.  MAJOR  keeps  track  of  the  last 
encountered  ep,  LW(9),  and  the  last  un,  LASTUN,  as  well  as  updating  the 
pr  storage  list  LW(8)  whenever  a  pr  is  encountered.  If  the  decision  for 
a  branch  path  is  to  examine  the  next  instruction  (code  3  of  the  Execution 
Decision  Code  of  Figure  3.14),  then  the  path  list  header  and  its  condi¬ 
tion  are  stored  back  again  on  the  same  current  list  LCURR(l),  in  order 
that  they  may  be  dealt  with  later.  If  the  decision  for  a  continuation 
path  is  to  examine  the  next  instruction,  then  a  new  list  is  created  for 
the  first  minor  that  may  follow,  and  it  is  this  list  and  the  unchanged 
condition  which  are  stored  back  on  the  current  list  LCURR(2) .  This 
provides  for  the  latter  part  of  Convention  3. 

Finally,  function  MAJOR  stores  on  each  branch  or  continuation  list 
the  outcome  or  decision  list  which  has  been  determined  for  the  path  under 
the  existing  conditions.  The  new  branch  and  continuation  conditions 
which  may  have  been  created  by  execution  of  the  currently  encountered 
instruction  are  stored  on  the  corresponding  current  lists  LCURR(l)  and 
LCURR(2),  which  are  thus  continually  updated. 


Function  MAJOR  is  called  in  case  of  a  TR  or  unconditional  BR  simply 


. 
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to  dispose  of  all  current  continuation  lists  on  LCURR(2) .  The  continua¬ 
tion  lists  will  in  this  case  all  become  sublists  of  each  other  as  they 
are  unstacked  from  LCURR(2) ,  and  LCURR(2)  is  left  empty. 


CHAPTER  IV 


Applications  of  the  Representation 
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APPLICATIONS  OF  THE  REPRESENTATION 


This  chapter  presents  a  description  of  three  applications  of  the 
list  structural  representation  of  a  Coursewriter  II  sequence  established 
in  Chapter  III,  The  first  application,  discussed  in  section  A,  is  the 
development  of  a  printed  logic  chart  illustrating  the  instructional  logic 
of  a  course.  Tracing  all  possible  paths  that  could  be  followed  by  a 
student  through  a  course  is  discussed  in  section  B.  The  third  application, 
described  in  section  C,  is  the  representation  of  student  response  models 
and  the  determination  of  simulation  variables  for  each  artificial  student. 

A.  Logic  Chart 

The  purpose  of  printing  a  logic  chart  is  to  assist  authors  with  the 
analysis  of  the  instructional  logic  of  a  course,  as  well  as  to  be  an  aid 
in  debugging  and  documentation.  Thus  the  objective  of  the  logic  chart  is 
to  provide  a  clear  representation  of  course  logic,  while  omitting  unneces¬ 
sary  detail.  A  diagrammatic  two-dimensional  logic  chart  was  decided  upon 
in  order  to  provide  the  most  visually  useful  output,  as  well  as  to  exploit 
the  full  potential  of  the  paper.  This  is  in  contrast  with  most  types  of 
computer-drawn  flowcharts,  which  are  one-dimensional  (Sherman,  1966). 

1.  Chart  Specifications 

The  specifications  or  conventions  according  to  which  a  logic  chart 
may  be  developed  are  now  described: 

(a)  All  Coursewriter  instructions  associated  with  a  particular  pr 
are  printed  separately.  The  reason  for  this  is  that  the  pr 
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instruction  is  designed  to  specify  the  beginning  of  a  new  problem, 
and  thus  the  pr  and  associated  instructions  are  intended  to  form  a 
logical  unit.  Each  problem  unit  is  clearly  separated. 

(b)  A  series  of  sequentially  executed  instructions  are  arranged  verti¬ 
cally  in  one  of  a  number  of  channels  or  columns  down  the  printed 
page,  The  vertical  representation  for  sequential  execution  is 
natural  in  that  it  corresponds  to  the  way  the  instructions  are  ori¬ 
ginally  composed.  Several  vertical  channels  are  provided  in  order 
that  branches  and  merges  among  channels  may  be  diagrammed. 

(c)  In  general,  only  the  operation  code  of  an  instruction  is  printed, 
but  any  control  instruction  or  minor  which  is  represented  by  a  list 
header,  has  the  address  of  the  header  printed  above  the  instruction, 
for  reference  purposes.  The  same  reference  number  is  printed  in 

the  left  margin  of  an  augmented  course  listing  which  is  output  before 
the  logic  chart.  The  reference  number  (header  address),  where  pre¬ 
sent,  is  preceded  above  by  a  vertical  bar  (I),  in  order  that  the 
location  of  the  instruction  may  stand  out  for  purposes  of  cross 
reference.  Conditional  explicit  branches  and  any  instructions  that 
change  the  values  of  counters,  switches,  or  return  registers  are 
followed  by  the  instruction  parameters  or  items,  each  indented  one 
column.  Printing  the  parameters  is  desirable  since  the  detailed 
information  affects  branching,  while  the  indentation  serves  to 
separate  instructions  from  parameters  of  instructions. 

(d)  Labels  are  also  preceded  above  by  a  vertical  bar  to  make  them  stand 
out  for  cross  reference.  Occasionally  the  logic  of  implicit  branch¬ 
ing  requires  the  execution  of  a  sequence  of  instructions  under  two 
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or  more  different  conditions.  Each  such  path  is  indicated  separ¬ 
ately  in  the  chart,  and  the  instructions  and  their  associated  labels 
appear  on  each  path.  Thus  a  series  of  instructions  and  labels  may 
appear  at  more  than  one  place  on  the  chart.  A  label  is  preceded  by 
a  vertical  bar  on  only  one  such  path,  indicating  the  point  at  which 
branches  or  merges  are  to  take  place.  Also,  any  control  instruction 
or  minor  which  possesses  a  reference  number  (address  of  list  header) 
is  preceded  above  by  its  reference  number  and  a  vertical  bar  on  only 
one  path.  This  convention  avoids  any  possibility  of  ambiguity. 

(e)  Departures  from  sequential  execution  (branches)  are  to  be  indicated 

by  strokes  ( - )  to  another  vertical  channel.  A  conditional  branch 

due  to  time-out  on  a  response  request  (ep)  is  indicated  by  the 
printing  of  T-OUT  along  the  strokes,  while  a  branch  due  to  mismatch 
during  response  analysis  is  indicated  by  MIS-M.  An  explicit  branch 
due  to  an  unconditional  br  is  indicated  by  strokes  beside  the  br. 

For  a  conditional  br ,  the  items  forming  the  condition  are  indented 
and  printed  below  the  br,  while  the  destination  of  the  branch  is 
indicated  by  strokes  beside  the  last  item  of  the  condition.  Any 
other  type  of  branch,  also  indicated  by  strokes,  results  from  the 
implicit  branching  feature  of  Coursewriter  II. 

Sometimes  when  a  branch  is  called  for,  a  channel  may  not  be 
able  to  indicate  its  branch  until  adjacent  channels  have  cleared. 

This  waiting  is  indicated  by  continuing  the  channel  with  a  series 
of  vertical  bars  until  the  branch  can  be  displayed. 

(f)  Merger  of  paths.  Paths  through  a  course  do  not  ordinarily  terminate 
except  by  transfer  to  another  course  segment.  Instead,  when  a  vert¬ 
ical  channel  of  instructions  on  the  logic  chart  comes  to  an  end, 
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then,  if  no  branch  is  indicated,  a  merger  takes  place  with  another 
path.  The  point  of  merger  is  indicated  by  the  label  or  numbered 
statement  which  terminates  the  channel. 

A  merger,  in  contrast  to  a  branch,  does  not  constitute  a  depar¬ 
ture  from  sequential  execution.  Instructions  following  a  label,  con¬ 
trol  instruction,  or  minor  with  a  reference  number  (list  header)  are 
printed  only  once.  If  the  instructions  can  be  reached  or  executed 
from  some  other  point  in  the  course,  this  is  indicated  by  branch  or 
merge,  but  the  subsequent  instructions  are  not  printed  again. 

(g)  When  a  branch  occurs  back  to  the  last  executed  ep,  the  program  may 
not  have  determined  which  ep  was  executed  last  for  each  path.  In 
this  case,  the  branch  is  indicated  as  "TO  EP",  without  specifying 
which  ep.  Similarly,  branches  to  return  registers  are  indicated  as 
such,  regardless  of  which  label  may  have  been  loaded  last  into  the 
return  register. 

(h)  Because  some  labels  may  not  be  branched  to,  or  may  be  branched  to 
only  through  return  registers,  any  labels  and  associated  instructions 
not  previously  printed  will  be  printed  when  the  rest  of  the  logic 
chart  has  been  completed. 

(i)  Function  call  instructions  (fn)  with  modifiers  are  represented  in 
accordance  with  the  appropriate  row  of  the  Course  Flow  Decision  Table 
(Figure  2.1)  as  indicated  by  the  modifier.  Row  2  of  this  table  is 
ambiguous  (aa,  ca,  wa,  or  un) ,  so  that  a  user-supplied  routine  FN2 

is  provided  in  the  program  to  specify  the  behavior  intended  when  fn 


is  used  with  modifier  2. 
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(j)  The  call  macro  (cm)  instruction  is  treated  as  a  minor  having  no 

effect  on  branching.  Therefore  macros  should  be  in  expanded  form 
in  the  input  deck. 

2 .  Programming  the  logic  chart 

Subroutine  CHART  and  several  lesser  subprograms  print  a  logic  chart 
conforming  to  the  specifications  just  described.  The  chart  is  construc¬ 
ted  from  the  list  structural  representation  created  for  an  arbitrary 
input  Coursewriter  II  course  as  discussed  in  Chapter  III.  This  entire 
list  structure  is  leafed  through  cell  by  cell  and  list  by  list  until  the 
end  is  reached. 

In  order  to  print  separately  the  logic  associated  with  each  in¬ 
struction,  every  pr  encountered  in  the  list  structure  (except  at  the 
beginning)  is  stored  in  sequence  order  on  working  list  LW(8)  by  subrou¬ 
tine  PR.  List  LW(8)  is  popped  up  to  retrieve  the  next  pr  to  be  printed 
whenever  the  end  of  the  instructions  associated  with  the  previous  pr  is 
reached.  When  LW(8)  becomes  empty,  labels  list  LW(7)  is  searched  for 
any  labels  that  have  not  yet  been  printed.  These  isolated  labels  and 
their  associated  instructions  are  either  not  branched  to,  or  else  are 
branched  to  only  through  return  registers. 

When  each  label  and  each  list  with  a  reference  counter  exceeding  3 
is  printed,  the  header  address  is  stored  on  a  memory  or  junk  list.  The 
junk  list  is  searched  before  printing  in  order  to  avoid  duplication  of 
output,  and  to  provide  for  the  path  merger  specification. 

Subroutine  CHART  maintains,  prints,  and  updates  16  vertical  channels 
across  the  page.  The  channels  are  numbered  1  to  16  from  left  to  right, 
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and  printing  of  the  list  structure  begins  in  channel  9.  According  to  the 
chart  specifications,  other  channels  become  occupied  as  branches  develop, 
and  printing  of  a  channel  terminates  when  a  merge  or  unconditional  branch 
develops . 

Channel  conditions  are  updated  as  the  chart  is  printed,  one  hori¬ 
zontal  line  at  a  time.  Two  computer  words  store  the  contents  of  each 
channel  for  printing,  in  vector  CHANEL  of  length  32  words,  and  the  entire 
chart  is  printed  in  format  (X,16(2A4)).  After  each  line  is  printed,  the 
contents  of  all  channels  are  set  to  blanks. 

The  utilization  of  each  of  the  16  channels  is  coded  in  terms  of  one 
of  9  distinct  conditions,  numbered  1  to  9,  which  determine  the  state  or 
condition  of  the  channel,  and  what  is  to  be  printed.  A  complete  list  of 
these  9  conditions,  and  permissible  subsequent  conditions  for  each,  is 
given  in  the  Chart  Channel  Condition  Code  of  Figure  4.1. 

An  integer  condition  vector  COND,  of  length  16,  stores  the  current 
condition  code  for  each  of  the  16  channels.  Initially,  all  channels  are 
free  except  channel  9,  so  that  C0ND(1)  to  COND (16)  are  each  6,  except 
COND (9)  has  the  value  of  8.  This  permits  the  printing  of  a  vertical  bar 
in  channel  9  to  start  the  chart.  As  branches  develop,  the  conditions  of 
the  other  channels  change  through  6,  (perhaps  7),  and  8,  to  condition  1, 
indicating  that  the  channel  is  in  use.  When  a  merge  or  unconditional 
branch  develops  to  terminate  the  printing  of  a  channel,  the  channel  is 
first  put  in  a  state  of  suspension,  codes  4  and  5,  before  becoming  free. 
This  assures  that  a  channel  is  blank  for  the  printing  of  one  or  two  lines 
before  it  can  come  back  into  use.  Thus  a  typical  sequence  of  condition 
codes  that  a  channel  may  assume,  as  a  series  of  lines  is  printed,  might 
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Code 

Meaning 

Permissible  j 

Subsequent  Conditions 

1 

channel  is  in  use 

1,  2,  3,  4,  9 

2 

attempt  to  branch 

1,  2,  4  | 

3 

prepare  to  suspend 

4 

4 

begin  suspension 

5 

5 

continue  suspension 

6 

6 

available  or  free 

00 

r". 

7 

prepare  for  use  after  branch  to  right 

8 

8 

prepare  for  use;  print  vertical  bar 

1  | 

9 

print  merge  after  label  before 

3,  4 

suspension 

Figure  4,1  Chart  Channel  Condition  Code 


be  6, 8, 1,4, 5, 6  as  the  condition  changes  from  free  to  busy  to  suspended  to 
free  again. 

Entirely  different  portions  of  the  list  structure  may  be  printed  in 
different  channels  of  the  chart  at  the  same  time.  Relationships  between 
channels  come  about  only  through  branching  or  merging.  Subroutine  CHART 
stores  the  address  of  the  list  structural  cell  which  each  channel  has 
printed  in  the  integer  vector  CELL,  of  length  16.  When  a  channel  is  in 
normal  use  (for  example,  printing  a  series  of  minor  instructions),  the 
cell  for  the  channel  is  advanced  one  to  the  right  in  the  list  structure 
after  each  line  is  printed. 

Before  a  new  line  is  printed,  each  channel  is  examined  in  turn 
from  left  to  right  in  order  to  decide  what  should  be  printed,  and  what 
the  subsequent  cell  and  condition  code  should  be  for  the  channel.  For 
a  condition  code  of  1,  the  identification  field  (ID)  of  the  current  cell 
is  first  examined.  Subsequent  action  depends  on  the  value  of  the  ID, 
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in  accordance  with  the  Cell  ID  Code  of  Figure  3.7. 

If  the  ID  is  2  or  more,  a  list  header  has  been  encountered.  The 
junk  list  is  searched  to  see  if  the  list  has  been  previously  printed. 

If  it  has,  then  the  condition  code  is  changed  to  3  (or  4  for  labels)  to 
provide  for  merger  and  suspension  of  further  printing  in  the  channel. 

The  list  reference  number  (or  label)  is  then  stored  in  CHANEL  for  print¬ 
ing.  On  the  other  hand,  if  the  list  has  not  previously  been  printed, 
then  its  address  is  stored  on  the  junk  list  and  the  condition  code  is 
not  changed. 

For  a  condition  code  of  1  and  a  current  cell  ID  of  1,  a  merger  sub¬ 
list  has  been  encountered.  Accordingly,  a  vertical  bar  is  stored  in 
CHANEL  for  printing,  and  CELL  is  changed  to  the  address  of  the  header  of 
the  sublist.  If  the  ID  is  -2,  -3,  or  -4,  an  immediate  attempt  is  made 
to  indicate  a  branch  to  another  channel.  If  this  is  not  possible,  the 
channel  condition  code  is  changed  to  2  and  a  vertical  bar  is  stored  for 
printing  to  indicate  continuation  of  the  channel  in  accordance  with  the 
specifications . 

For  any  other  cell  ID  and  a  condition  code  of  1,  the  cell  contents 
is  printed  in  accordance  with  the  ID  as  in  Figure  3.7.  For  example,  if 
the  ID  is  0,  the  contents  are  printed  as  a  single  word  of  characters, 
whereas  if  the  ID  is  -5,  the  contents  is  an  integer  which  must  first  be 
changed  to  characters  using  subroutine  HOLLER,  and  indentation  and  a 
possible  minus  sign  must  be  provided  for  in  printing.  In  any  case  CELL 
is  advanced  to  the  next  appropriate  cell,  and  an  immediate  branch  is 
attempted  if  the  ID  of  the  new  cell  so  dictates. 


When  a  channel  has  a  condition  code  of  2,  branching  is  attempted  by 
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calling  function  NUCHAN  to  determine  the  channel  that  may  be  branched  to 
(if  any) .  NUCHAN  examines  the  conditions  of  neighbouring  channels  to 
either  side,  and  selects  the  side  on  which  there  is  more  room  (left  or 
right  depending  which  side  has  the  most  consecutive  free  channels  adja¬ 
cent  to  the  channel  in  question) .  NUCHAN  then  selects  as  a  branch 
channel  one  that  is  about  one  third  of  the  way  to  the  first  busy  channel 
or  to  the  edge  of  the  paper.  This  seems  to  provide  adequate  spacing 
across  the  page,  in  an  esthetically  pleasing  manner,  for  most  purposes. 

If  no  branch  channel  is  available,  the  condition  code  for  the  current 
channel  remains  at  2.  Otherwise,  subroutine  ARTIST  is  called  to  draw 

strokes  ( - )  to  the  branch  channel,  and  to  print  T-OUT  or  MIS-M  if  the 

cell  ID  is  -3  or  -4  respectively. 

A  channel  condition  code  of  3  is  a  pre-suspension  condition  used 
with  lists  that  are  not  representing  labels.  With  these  lists,  the 
reference  number  (header  address)  is  to  be  printed  first ,  followed  by 
the  instruction.  This  requires  one  more  line  than  for  labels,  which  are 
unique  and  do  not  require  a  reference  number.  Accordingly,  when  the 
channel  condition  code  is  3,  the  cell  contents  are  stored  for  printing 
and  the  new  condition  code  is  set  to  4. 

When  the  current  channel  condition  code  is  4  or  5 ,  the  channel  is  in 
suspension  prior  to  becoming  available,  and  the  new  condition  code  is  set 
to  5  or  6  respectively.  This  means  that  at  least  one  blank  position  will 
be  printed  after  a  channel  has  been  in  use  and  before  it  becomes  avail¬ 
able  for  use  again. 

A  channel  condition  code  of  6  indicates  that  the  channel  is  avail¬ 
able  or  free  for  use.  The  channel  remains  available  until  selected  by 
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NUCHAN  to  be  the  branch  destination  for  some  other  nearby  channel.  The 
condition  code  then  changes  to  8,  or  else  7  for  a  destination  channel 
that  is  to  the  right  of  the  branching  channel.  A  condition  code  of  7 
changes  to  8  before  a  line  is  printed,  since  channels  are  examined  in 
turn  from  left  to  right  before  a  line  is  printed. 

A  condition  code  of  8  designates  a  channel  that  is  about  to  come 
into  use.  A  vertical  bar  (|)  is  stored  in  CHANEL  for  printing,  and  the 
condition  code  is  changed  to  1. 

Condition  code  9  is  sometimes  used  when  a  label  is  encountered  that 
has  previously  been  printed.  Ordinarily  the  channel  code  would  be  set  to 
4,  but  if  the  label  is  followed  immediately  by  another  label  or  instruc¬ 
tion  with  a  reference  number,  then  code  9  is  used  to  delay  suspension  of 
the  channel  until  the  label  or  instruction  has  been  printed.  Accordingly, 
CELL  is  advanced  and  the  condition  code  is  changed  to  3  or  4.  This  con¬ 
dition  provides  for  the  printing  of  an  important  instruction  immediately 
following  a  label  even  if  the  instruction  has  been  printed  before. 

3.  Chart  Example 

A  listing  of  a  short  series  of  Coursewriter  statements  is  given  in 
Figure  4.2.  This  course  listing  is  augmented  on  the  left  by  label- 
sequence  numbers  and  CL2  reference  numbers  (list  header  addresses).  For 
example,  the  statement  un  has  label-sequence  number  LABEL1-6  and  CL2 
reference  number  129.  This  augmented  listing  is  printed  by  the  CL2  main 
program  as  the  input  Coursewriter  cards  are  being  read  and  the  list 
structure  is  being  created. 


CL2  reference  numbers  form  two  separate  non-decreasing  sequences, 


one  for  pr  instructions  and  the  other  for  any  other  numbered  instruc¬ 
tions.  This  means  the  augmented  listing  can  be  quickly  scanned  in  order 
to  locate  any  numbered  instruction.  As  an  additional  scanning  aid,  each 
label,  pr  and  ep  is  indicated  in  successive  columns  from  the  left  margin 
of  the  listing. 


PR 

19 

1 

PR 

2 

LR 

LAB3-i/RR2 

3 

DTI 

4 

BR 

LAB2-i/Sl-i/0 

57 

5 

AA 

6 

DT2 

7 

LD 

-12-»/C14 

EP 

70 

8 

EP 

9 

DT3 

78 

10 

w 

11 

DT4 

87 

12 

AB 

90 

13 

DT5 

LABEL 1 

LABEL1 

1 

DT6 

106 

2 

NX 

3 

DT7 

4 

LD 

C14-i/C15 

5 

BR 

LAB  2 

129 

6 

UN 

7 

DT8 

LAB  2 

LAB  2 

1 

DT9 

LAB  3 

LAB  3 

1 

DTA 

152 

2 

EA 

3 

DTB 

4 

BR 

RR2-|/ Cl-i/LE 

5 

DTC 

6 

TR 

2-i /SECOND 

Figure  4.2 


Augmented  Course  Listing  of  Logic  Chart  Example 
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RR2 


19 
PR 
LR 
LAB  3 
RR2 
DTI 
BR 
SI 
0 


1 — 
LAB  2 

— 

1  m 

1 

DT9 

AA 

MIS-M 

| 

DT2 

i 

i 

LAB  3 

LD 

78 

DTA 

-12 

NX 

| 

C14 

DT4 

152 

i 

| 

EA 

70 

90 

DTB 

T-OUT 

EP 

DT5 

BR 

1  ^ 

DT3 

| 

Cl 

78 

1 

LABEL1 

LE 

NX 

87 

DT6 

10 

MIS-M 

AB 

l 

DTC 

| 

DT5 

106 

TR 

106 

LABEL1 

NX 

| 

NX 

DT6 

DT7 

SECOND 

1 

LD 

SEG- 

129 

C14 

2 

MIS-M 

UN 

C15 

| 

DT8 

BR 

129 

LAB  2 

UN 

DT9 

LAB  3 

DTA 

TO  EP 


Figure  4.3  Logic  Chart  Example 
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The  logic  chart  is  shown  in  Figure  4.3.  Sequential  execution  of 
the  first  four  instructions  is  indicated  by  their  consecutive  vertical 
ordering.  The  pr  instruction,  since  it  is  represented  by  a  list  header, 
is  preceded  above  by  its  reference  number  19,  which  is  the  list  header 
address.  The  items  or  parameters  of  lr  (LAB3  and  RR2)  are  indented  and 
printed  below  the  instruction.  Similarly  the  parameters  of  br  (SI  and  0) 
are  indented  and  printed  below  it.  The  destination  of  this  conditional 
explicit  branch  is  denoted  by  strokes  to  label  LAB2  which  heads  a  channel 
to  the  left.  If  the  condition  is  false  (that  is,  if  switch  SI  does  not 
have  the  value  0) ,  then  continuation  of  sequential  execution  is  indicated 
and  instruction  aa  with  reference  number  57  is  executed  next. 

When  57  aa  is  executed,  a  match  or  mismatch  results.  In  case  of 
mismatch,  a  branch  to  78  nx  is  indicated  by  strokes  to  a  channel  at  the 
right.  Otherwise,  if  there  is  a  match  on  the  aa,  sequential  execution 
continues  and  dt2  is  executed,  followed  by  Id  with  parameters  -12  and  C14 

Then  ep  with  reference  number  70  is  executed,  and  if  the  response 
is  not  in  time,  an  implicit  branch  to  78  nx  is  indicated.  This  time-out 
channel  merges  with  78  nx  in  the  right  hand  channel.  Otherwise,  if  70 
ep  receives  a  response  in  time,  sequential  execution  continues  as  dt3  is 
executed.  This  is  followed  by  an  unconditional  implicit  branch  to  87  ab . 

In  case  of  mismatch  on  the  ab ,  an  implicit  branch  takes  place  to  106 
nx  which  has  already  been  printed  in  a  channel  to  the  right.  Otherwise, 
if  a  response  match  takes  place  when  the  ab  is  executed,  then  sequential 
execution  of  dt5,  LABELl,  and  dt6  is  indicated,  followed  by  an  uncondi¬ 
tional  implicit  branch  to  129  un.  The  instructions  dt5,  LABELl  and  dt6 
occur  also  on  the  path  in  the  channel  at  the  right,  but  the  outcome  is 
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different  on  each  path,  so  the  two  paths  through  the  same  instructions 
are  shown  separately.  This  duplication  of  instructions  on  more  than  one 
path  leads  to  more  complex  program  logic  than  what  is  ordinarily  prac¬ 
tised,  so  such  occurrences  are  rare. 

However,  in  this  example  another  such  duplication  occurs  with  label 
LAB2  and  the  three  following  instructions.  These  instructions  occur  both 
in  the  left  channel,  and  also  below  129  un.  It  is  important  to  note  that 
when  the  rightmost  channel  branches  to  LAB2,  this  branch  is  to  the  point 
where  LAB2  is  preceded  above  by  a  vertical  bar,  namely  the  left  channel. 

The  channel  headed  by  129  un  ends  with  an  unconditional  implicit 
branch  "TO  EP".  The  program  has  not  determined  which  ep  was  the  last  one 
executed  for  this  path. 

B .  Systematic  Path  Tracing 

While  the  logic  chart  shows  diagrammatically  the  entire  logical 
structure  of  a  course,  it  is  deficient  in  being  static  rather  than 
dynamic.  For  example,  conditional  branches  may  be  charted  for  which 
the  truth  evaluation  of  the  conditional  expression  depends  upon  the  path 
taken  up  to  that  point.  A  program  that  systematically  traces  all  poss¬ 
ible  paths  that  a  student  could  take  through  a  course  would  therefore 
provide  additional  useful  information  about  the  dynamic  logic  of  the 
course . 

A  problem  that  arises  in  attempting  to  trace  possible  paths  through 
a  course  is  the  fact  that  any  path  is  in  part  determined  by  student 
responses.  While  it  is  possible  to  consider  tracing  paths  generated  by 
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all  possible  response  combinations,  the  number  of  paths  so  generated 
quickly  becomes  impractically  large  even  for  a  relatively  short  course. 

It  was  therefore  decided  to  trace  only  those  paths  generated  on  the 
assumption  of  response  consistency,  which  means  that  the  same  response 
will  be  made  if  the  same  response-dependent  instruction  is  executed 
more  than  once.  The  response  consistency  assumption  is  defined  more 
precisely  below. 

Another  path  tracing  requirement  is  that  paths  be  traced  in  a 
systematic  fashion.  This  is  necessary  both  in  order  to  avoid  retracing 
the  same  path,  and  to  enable  the  user  to  locate  particular  paths  of 
interest  from  a  large  set  of  paths  that  may  be  output  by  the  program. 

For  instance,  an  author  may  find  it  useful  to  determine  what  happens 
when  a  student  fails  to  respond  in  time,  especially  if  no  special 
provision  has  been  made  for  such  a  contingency. 

1.  Path  Tracing  Specifications 

(a)  Execution.  In  order  that  paths  be  correctly  traced,  the  execution 
of  all  instructions  that  affect  branching  must  be  simulated.  The 
truth  of  the  conditional  expression  in  an  explicit  conditional 
branch  must  be  evaluated,  and  switches,  counters,  and  return  regis¬ 
ters  must  be  updated  as  required.  Unfortunately,  it  is  not  easily 
possible  to  simulate  the  execution  of  functions  that  affect  branch¬ 
ing,  since  functions  are  not  written  in  Coursewriter .  Therefore 
functions  are  not  executed. 

(b)  Printing.  In  order  to  provide  the  minimum  of  printed  output  consis¬ 
tent  with  accurate  recording  of  the  path  of  execution,  only  labels 
or  numbered  instructions  are  to  be  printed.  Since  all  branches 
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involve  labels  or  instructions  with  reference  numbers,  the  printing 
of  these  as  they  are  executed  provides  an  unambiguous  record  of  the 
path  traced.  If  an  ep  is  in  time,  T-OUT  is  not  printed,  and  if  a 
match  is  selected  during  response  analysis,  MIS-M  is  not  printed, 

Cc)  Systematic  tracing.  Paths  are  traced  systematically  in  a  very 

definite  order.  The  first  path  times  out  on  every  response  request 
and  mismatches  on  every  response  analysis  instruction  (aa,  ca,  wa, 
wb,  cb,  and  ab ;  matches  on  un  are  determined  entirely  by  internal 
counters) o  When  a  path  terminates,  the  next  path  is  defined  by 
changing  the  last  executed  mismatch  or  time-out  to  a  match  or  time- 
in,  However,  since  a  timed-out  response  cannot  be  matched,  a  re¬ 
sponse  request  instruction  is  placed  in  time  before  any  subsequent 
answer  mismatches  are  changed  to  matches.  Also,  once  a  response 
request  (ep)  instruction  has  been  placed  in  time,  it  is  not  allowed 
to  time  out  on  subsequent  paths.  With  these  conventions,  a  systema¬ 
tic  series  of  paths  may  be  traced  until,  on  the  last  path,  every 
response-dependent  instruction  is  in  time  or  matched. 

(d)  Response  consistency.  If  a  response-dependent  instruction  (response 
request  or  response  analysis)  is  executed  more  than  once  along  the 
same  route  in  a  path,  the  same  response  condition  will  apply  each 
time.  For  example,  if  an  ep  is  in  time  and  a  subsequent  ca  is 
matched,  and  if  the  same  ep  and  ca  are  executed  again  on  the  same 
path,  they  will  still  be  in  time  and  matched  respectively 

If  the  assumption  of  response  consistency  is  viewed  as  a  student 
response  model,  the  students  so  defined  are  unrealistically  charac¬ 
terized  by  both  a  lack  of  forgetfulness  and  an  inability  to  learn 
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anything  new.  The  purpose  of  the  path  tracing  is,  however,  to 
illustrate  features  of  the  dynamic  logic  of  a  course,  and  the  re¬ 
sponse  consistency  convention  reduces  the  number  of  redundant  paths 
traced  usually  without  loss  of  important  features  of  the  instruc¬ 
tional  logic.  Much  more  will  be  said  about  student  response  models 
in  the  next  section. 

(e)  Path  termination.  Paths  may  end  in  one  of  five  distinct  ways  -  an 
infinite  loop,  transfer  to  another  segment,  termination  of  course, 
branch  to  a  non-existent  label,  or  branch  to  an  empty  return  regis¬ 
ter.  Most  of  these  types  of  path  termination  are  represented  in  the 
output  of  the  path  tracing  to  be  described. 

2 .  Path  Tracing  Program 

In  order  to  trace  paths  through  a  course,  it  is  essential  to  simu¬ 
late  the  execution  of  the  instructions  that  affect  branching.  Counters, 
switches,  and  return  registers  must  be  represented,  and  the  representa¬ 
tions  must  be  updated  whenever  a  Coursewriter  II  instruction  that  changes 
their  values  is  encountered.  The  truth  value  of  a  conditional  expression 
in  a  conditional  explicit  branch  must  be  evaluated  to  decide  whether  to 
branch  or  not.  The  last  executed  response  request  (ep)  instruction  must 
be  stored,  since  it  may  be  the  destination  of  a  branch,  and  the  operation 
of  the  two  un  counters  must  be  simulated. 

The  31  counters,  528  switches  (32  standard  switches  and  1  switch  for 
each  of  the  16  bits  of  each  of  the  31  counters)  and  6  return  registers 
are  each  represented  by  a  separate  integer  variable.  Whenever  a  Course- 
writer  II  instruction  is  encountered  that  changes  the  values  of  counters, 
switches  or  return  registers  (instructions  ad,  sb ,  mp,  dv,  lr,  and  Id, 
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except  load  buffer),  the  TRACE  subprogram  calls  subroutine  EXCUTE  to 
update  the  appropriate  representation. 

Subroutine  EXCUTE  first  determines  whether  it  is  a  switch,  counter, 
or  return  register  that  is  to  be  changed.  If  it  is  a  switch,  function 
ISWICH  is  called  to  determine  which  switch,  while  if  it  is  a  counter, 
function  ICOUNT  determines  which  counter.  Arithmetic  operations  with 
integers  and  counters  are  performed  as  required,  and  the  new  value  is 
stored  in  the  appropriate  simulated  switch  or  counter.  Execution  of  the 
load  register  (lr)  instruction  is  simulated  by  storing  the  label  address 
in  the  appropriate  return  register  representation.  The  value  of  the 
simulated  UN2  counter  (represented  by  integer  variable  IUN2)  is  also 
stored  whenever  a  label  is  loaded  into  a  return  register. 

When  the  TRACE  subroutine  encounters  a  conditional  explicit  branch, 
logical  function  IVAL  is  called  to  evaluate  the  truth  value  of  the  con¬ 
ditional  expression.  For  this  evaluation,  ISWICH  and  ICOUNT  are  called 
to  determine  which  counters  and  switches  are  involved,  and  then  the 
values  of  the  appropriate  simulated  counters  and  switches  are  used  to 
make  the  comparison  that  determines  the  logical  outcome. 

The  TRACE  subroutine  stores  the  address  of  the  last  executed  ep 
instruction,  and  increments  the  simulated  UN2  counter  whenever  the  same 
ep  is  executed  again.  When  a  un  instruction  is  encountered,  match  or 
mismatch  is  determined  by  comparison  of  the  simulated  UN2  counter  with 
the  simulated  UNI  counter  which  is  stored  in  a  cell  in  the  list  structure. 
When  a  branch  is  encountered  to  a  return  register,  the  address  of  the 
appropriate  label  is  retrieved  from  the  simulated  return  register,  and 
the  value  of  the  simulated  UN 2  counter  is  restored. 
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A  path  is  traced  through  a  course  by  advancing  cell  by  cell  through 
its  list  structural  representation.  Each  time  a  list  header  is  encoun¬ 
tered,  its  address  is  stored  on  a  list  named  MEMORY.  The  MEMORY  is  also 
searched  to  see  if  the  list  address  is  already  stored  there,  in  which 
case  the  same  instruction  is  being  re-executed.  Program  loops  are  detec¬ 
ted  in  this  manner .  Tracing  of  a  path  terminates  when  a  program  loop  has 
been  executed  ten  times  (or  a  specified  number  of  times,  on  the  assumption 
that  an  endless  loop  has  been  encountered) .  Tracing  will  also  terminate 
if  the  end  of  a  list  is  reached  and  no  branch  or  merge  has  been  specified. 

The  MEMORY  list  stores  an  account  of  the  path  being  traced,  and  is 
used  by  subroutine  PATH  to  print  a  trace  of  the  labels  and  numbered 
instructions  whose  execution  has  been  simulated.  Subroutine  PATH  prints 
an  instruction  preceded  by  its  reference  number  (list  header  address) . 

For  response-dependent  instructions,  T-OUT  or  MIS-M  is  printed  if  a  time¬ 
out  or  mismatch  response  has  been  selected.  The  word  LOOP  is  printed  at 
the  end  of  paths  that  terminate  in  an  endless  loop. 

Whenever  a  path  decision  depends  on  a  student  response,  the  conven¬ 
tion  of  systematic  tracing  and  the  assumption  of  response  consistency 
are  used  to  make  the  decision.  On  the  first  path,  time-out  or  mismatch 
responses  are  made  at  each  response-dependent  decision  point  (referred  to 
as  a  "door").  In  other  words,  all  doors  are  open  on  the  first  path,  but 
the  last  open  door  is  remembered.  When  the  path  terminates,  the  last  open 
door  is  stored  on  a  list  that  records  the  addresses  of  all  doors  that  are 
to  be  shut. 

When  subsequent  paths  are  systematically  traced,  doors  that  are 
stored  on  the  record  list,  in  order,  are  not  permitted  to  be  opened.  At 
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the  termination  of  each  path,  the  last  open  door  is  added  to  the  record 
list  of  doors  that  are  shut,  and  any  closed  doors  after  the  last  open 
door  are  removed  from  the  list.  Finally,  on  the  last  path,  all  doors 
have  been  shut,  and  in-time  or  match  responses  are  made  at  each  response- 
dependent  decision  point. 

An  ep  instruction  is  placed  in  time  before  the  subsequent  response 
analysis  instructions  are  permitted  to  match.  Then  the  address  of  the  ep 
is  stored  so  that  it  is  not  permitted  to  time  out  on  subsequent  paths. 

When  any  response-dependent  instruction  is  re-executed,  the  same  response 
is  made  again. 

Along  each  path,  a  count  is  maintained  of  the  total  number  of  state¬ 
ments  executed  on  the  path,  and  this  information  is  printed  at  the  term¬ 
ination  of  the  path. 

3.  Path  Tracing  Example 

A  listing  of  a  short  series  of  Coursewriter  II  statements  for  a  path 
tracing  example  is  given  in  Figure  4.4.  The  listing  is  augmented  on  the 
left  by  label  sequence  numbers,  reference  numbers  (list  header  addresses), 
and  indication  of  the  location  of  each  ep,  pr ,  and  label. 

Figure  4.5  shows  the  paths  traced  through  the  series  of  instructions 
listed  in  Figure  4.4.  In  accordance  with  the  specifications,  only  labels 
and  numbered  instructions  are  printed,  but  the  execution  of  all  instruc¬ 
tions  that  affect  branching  has  been  simulated. 

The  first  path  times  out  and  mismatches  at  every  opportunity.  As 
counter  Cl  is  being  incremented,  the  path  times  out  four  times  on  instruc¬ 
tion  47  EP  before  the  conditional  expression  of  the  conditional  branch 


is  false,  and  then  execution  branches  to  21  PR.  Response  consistency  is 
evident  as  the  path  times  out  continually  on  134  EP  and  terminates  in  an 
endless  loop. 
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PATH  NO.  2  is  determined  from  PATH  NO.  1  by  changing  134  EP  from 
time-out  to  in  time.  This  leads  to  a  new  route  and  mismatches  on  152  CA 
and  159  FN2  before  PATH  NO.  2  terminates.  PATH  NO.  3  is  then  determined 
by  matching  on  159  FN2,  and  PATH  NO.  4  by  matching  on  152  CA.  PATH  NO.  5 
first  puts  47  EP  in  time  before  matching  on  73  CA,  80  CB,  or  100  WA. 

PATH  NO.  6  ends  in  a  loop  by  consistently  giving  wrong  answer  100  WA  to 
response  request  47  EP. 


LABEL 


PR 


PR 


PR 


19 

1 

PR 

2 

LD 

0-,/Cl 

3 

LD 

0 — »/  S 1 

47 

4 

EP 

54 

5 

NX 

6 

AD 

ln/ci 

7 

BR 

RE-i/Cl-,/LE-»/ 3 

8 

BR 

PR1 

73 

9 

CA 

80 

10 

CB 

83 

11 

LR 

LABEL-i/RRO 

100 

12 

WA 

109 

13 

UN 

118 

14 

UN 

21 

15 

PR 

134 

16 

EP 

141 

17 

NX 

18 

BR 

RE 

152 

19 

CA 

159 

20 

FN2 

21 

TR 

001-i/ ONE 

175 

22 

UN 

23 

BR 

RR0-./SW0 

24 

EA 

LABEL 

1 

LD 

1-,/Sl 

2 

BR 

PRO 

23 

3 

PR 

Figure  4.4 

Augmented  Listing  of  Path  Tracing  Example 
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PATH 

NO.  1 

51 

STATEMENTS 

EXECUTED 

19  PR 

47  EP 

T-OUT 

54  NX 

47  EP  T-OUT 

54 

NX 

47  EP  T-OUT 

54  NX 

47  EP 

T-OUT 

54  NX 

47  EP  T-OUT 

54 

NX 

21  PR 

134  EP  1 

T-OUT 

141  NX  134  EP 

LOOP 

PATH 

NO.  2 

27 

STATEMENTS 

EXECUTED 

19  PR 

47  EP 

T-OUT 

54  NX 

47  EP  T-OUT 

54 

NX 

47  EP  T-OUT 

54  NX 

47  EP 

T-OUT 

54  NX 

21  PR  134 

EP 

152 

CA  MIS-M 

159  FN2 

MIS-M 

175 

UN  RRO 

PATH 

NO.  3 

28 

STATEMENTS 

EXECUTED 

19  PR 

47  EP 

T-OUT 

54  NX 

47  EP  T-OUT 

54 

NX 

47  EP  T-OUT 

54  NX 

47  EP 

T-OUT 

54  NX 

21  PR  134 

EP 

152 

CA  MIS-M 

159  FN2 

ONE 

PATH 

NO.  4 

24 

STATEMENTS 

EXECUTED 

19  PR 

47  EP 

T-OUT 

54  NX 

47  EP  T-OUT 

54 

NX 

47  EP  T-OUT 

54  NX 

47  EP 

T-OUT 

54  NX 

21  PR  134 

EP 

152 

CA  23  PR 

PATH 

NO.  5 

68 

STATEMENTS 

EXECUTED 

19  PR 

47  EP 

73 

CA  MIS-M 

80  CB  MIS-M 

100 

i  WA  MIS-M 

109  UN 

47  EF 

'  73 

CA  MIS-M 

80  CB  MIS-M 

100  WA 

MIS-M 

109  UN  MIS-M 

118  UN  47  EP 

LOOP 

PATH 

NO.  6 

43 

STATEMENTS 

EXECUTED 

19  PR 

47  EP 

73 

CA  MIS-M 

80  CB  MIS-M 

100 

i  WA 

47  EP 

LOOP 

PATH 

NO.  7 

67 

STATEMENTS 

EXECUTED 

19  PR 

47  EP 

73 

CA  MIS-M 

80  CB  83  : 

LR 

21  PR  134  EP 

152  CA  MIS-M 
152  CA  MIS-M 


159  FN2  MIS-M  175  UN  LABEL  21  PR 
159  FN2  MIS-M  175  UN  134  EP  LOOP 


134  EP 


PATH  NO .  8 

19  PR  47  EP 
152  CA  MIS-M 


15  STATEMENTS  EXECUTED 
73  CA  MIS-M  80  CB  83  LR 
159  FN2  ONE 


21  PR 


134  EP 


PATH  NO .  9 

19  PR  47  EP 

152  CA  23  PR 

PATH  NO .  10 

19  PR  47  EP 

159  FN2  MIS-M 
159  FN2  MIS-M 

PATH  NO.  11 

19  PR  47  EP 

159  FN2  ONE 

PATH  NO .  12 

19  PR  47  EP 

23  PR 


11  STATEMENTS  EXECUTED 
73  CA  MIS-M  80  CB 


66  STATEMENTS  EXECUTED 
73  CA  83  LR  21  PR 

175  UN  LABEL  21  PR 

175  UN  134  EP  LOOP 

14  STATEMENTS  EXECUTED 
73  CA  83  LR  21  PR 


10  STATEMENTS  EXECUTED 
73  CA  83  LR  21  PR 


83  LR  21  PR  134  EP 


134  EP  152  CA  MIS-M 
134  EP  152  CA  MIS-M 


134  EP  152  CA  MIS-M 


134  EP  152  CA 


Figure  4.5 


Path  Tracing  Example 


i.  IAS 

r.v;i  ee  r 

76 

When  PATH  No.  7  matches  on  80  CB,  a  route  again  develops  to  134  EP 
which  is  not  permitted  to  time  out  since  it  was  already  placed  in  time 
on  PATH  NO.  2.  The  response  analysis  instructions  152  CA  and  159  FN2 
following  134  EP  are  however  again  permitted  to  mismatch,  since  the 
conditions  of  counters,  switches,  and  return  registers  may  be  different. 

This  is  indeed  the  case  in  this  example,  since  LABEL  was  loaded  into  RRO 
on  PATH  NO.  7  but  not  on  PATH  NO.  2. 

The  remaining  paths  are  traced  in  turn  until  at  last  on  PATH  NO.  12 
all  EP’s  are  in  time  and  no  response  mismatches  occur.  This  is  also  the 
shortest  path  in  this  example. 

C .  Student  Response  Simulation 

A  major  objective  of  this  thesis  is  to  show  how  the  computer  may  be 
used  as  a  means  of  representing  or  simulating  student  response  models. 

A  student  model  can  then  interact  with  a  course  representation  to  simu¬ 
late  both  the  instructional  and  learning  processes.  So  far,  it  has  been 
shown  how  the  decision  structure  of  a  course  or  logical  sequence  of 
instructions  as  described  in  Coursewriter  II  language,  can  be  simulated. 

In  this  section,  a  framework  for  the  representation  of  student  models  is 
described,  and  two  simplified  examples  of  student  response  models  and 
their  interaction  with  a  course  are  illustrated. 

1 .  A  Framework  for  Student  Models 

An  important  step  in  computer  simulation  is  the  development  and 
testing  of  adequate  models  of  the  process  being  simulated.  Here  it  is 
the  instructional  and  learning  aspects  of  a  computer-assisted  instruc¬ 
tional  (CAI)  setting  that  are  being  simulated.  The  development  of  models 
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is  considered  in  this  chapter  and  the  previous  chapters,  and  the  adequacy 
of  the  models  is  considered  in  the  next  chapter. 

Student  responses  influence  the  instructional  and  learning  process 
of  CAI  by  determining  the  decisions  taken  at  response-dependent  decision 
points  (nodes)  in  the  course.  In  Coursewriter  II,  nodes  are  generated  by 
execution  of  the  response  request  instruction  (ep  in  time  or  timed-out) 
and  some  of  the  response  analysis  instructions  (aa,  ca,  wa,  wb ,  cb ,  ab 
match  or  mis-match) .  A  student  response  model  must  specify  the  decision 
to  be  taken  at  each  such  node.  The  instructional  logic  of  a  course,  in 
conjunction  with  the  student  model,  determines  the  path  followed  by  each 
simulated  student  through  the  course. 

An  evaluation  of  the  adequacy  of  a  student  response  model  can  be 
made  by  detailed  comparison  of  the  paths  followed  by  real  and  simulated 
students  through  a  course.  However,  it  is  frequently  desirable  to  com¬ 
pare  real  and  simulated  students  on  the  basis  of  generated  variables 
which  summarize  aspects  of  the  paths.  For  instance,  the  path  length  in 
terms  of  the  number  of  instructions  executed  in  a  course  can  be  compared 
for  real  and  simulated  students.  Therefore  a  facility  for  generation  of 
simulation  variables  which  are  a  function  of  the  paths  followed  by  simu¬ 
lated  students  is  a  requirement  of  a  framework  for  expressing  student 
simulation  models. 

To  trace  the  paths  followed  by  simulated  students  through  a  course, 
subroutine  STRACE  advances  cell  by  cell  through  the  list  structural 
representation  in  a  manner  similar  to  the  TRACE  subroutine  described  in 
the  previous  section.  The  assumption  of  response  consistency  is  replaced 
by  a  call  to  a  special  MODEL  subroutine  whenever  a  response-dependent 
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Subroutine  MODEL  provides  the  framework  for  representing  student 
response  models,  as  well  as  a  facility  for  the  generation  of  simulation 
variables.  In  order  to  provide  for  both  of  these  functions,  MODEL  is 
called  at  response-dependent  decision  points  so  that  a  simulated  response 
may  be  made,  and  MODEL  is  also  called  whenever  any  instruction  is  exe¬ 
cuted  so  that  path-dependent  simulation  variables  may  be  generated. 
Indication  of  the  location  of  the  node  or  instruction  being  executed  is 
provided . 

The  six  arguments  of  subroutine  MODEL  are: 

N  -  student  number 

IX  -  integer  vector  of  simulation  variables  that  may  be  created  for  each 
student 

IREF  -  the  reference  number  (list  header  address)  of  the  last  label  or 
numbered  instruction 

ICELL  -  the  MOSLIP  address  of  the  current  instruction 

NODE  -  logical  variable  that  is  true  whenever  a  response-dependent  node 
or  decision  point  is  encountered,  otherwise  false. 

BRANCH  -  logical  variable  that  should  be  set  false  for  a  student  to  be  in 
time  or  match  at  a  response-dependent  node;  otherwise  true  (time¬ 
out  or  mismatch)  is  assumed. 

The  MODEL  subroutine  is  called  under  the  two  different  circumstances 
already  mentioned: 

(a)  MODEL  is  called  whenever  a  node  is  generated,  immediately  after 

execution  of  a  response-dependent  instruction.  In  this  case,  NODE 
is  true  and  IREF  is  the  reference  number  (list  header  address)  of 
the  node.  A  decision  must  be  made,  on  the  basis  of  the  student 
model,  whether  or  not  to  set  BRANCH  to  false.  If  BRANCH  is  not  set 
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to  false,  then  true  is  assumed  and  the  simulated  student  will  time¬ 


out  or  mismatch  at  the  node. 


(b)  Subroutine  MODEL  is  also  called  whenever  any  instruction  is  executed 
In  this  case,  NODE  is  false  and  ICELL  is  the  MOSLIP  address  of  the 
instruction.  No  decision  must  be  made  about  the  truth  value  of 
BRANCH.  Instead,  information  about  the  instruction  may  be  used  to 
generate  any  desired  simulation  variables. 


Thus  subroutine  MODEL  provides  a  framework  for  the  Fortran  coding  of 
student  response  models. 


2 .  A  Random  Response  Model 


This  first  student  simulation  example  shows  how  a  very  simple  stoch¬ 
astic  response  model  may  be  coded.  At  each  response-dependent  decision 
point  (node)  in  the  course,  a  pseudorandom  number  uniformly  distributed 
between  0  and  1  is  generated.  If  the  random  number  is  less  than  0.5,  a 
match  or  in  time  response  is  made,  otherwise  a  mismatch  or  time-out 
response  is  selected.  Thus  each  simulated  student  has  equal  probability 
of  responding  in  time  (matching)  or  timing-out  (mismatching)  at  each  node 


The  Fortran  coding  of  this  random  response  model  as  represented  by 

subroutine  MODEL  is  shown  below: 

SUBROUTINE  MODEL  (N, IX, IREF, ICELL, NODE, BRANCH) 

C  MODEL  1  -  RANDOM  RESPONSE  MODEL 

INTEGER  IX(1) ,IR/5093/ 

LOGICAL  NODE, BRANCH 
IF (NODE)  GO  TO  99 
IX(1)=IX(1)+1 
RETURN 

99  CONTINUE 

CALL  RANDU (IR, IY ,R) 

IR=IY 

IF (R. LT .0.5)  BRANCH=. FALSE. 

RETURN 

END 


4 
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STUDENT  1  20  STATEMENTS  EXECUTED 

19  PR  47  EP  73  CA  MIS-M  80  CB  83  LR  21  PR 
134  EP  T-OUT  141  NX  134  EP  T-OUT  141  NX  134  EP  T-OUT 
141  NX  134  EP  152  CA  23  PR 
VARIABLE  1 
20 


STUDENT  2 

19  PR  47  EP 

54  NX  47  EP 

134  EP  T-OUT 
VARIABLE  1 
26 


26  STATEMENTS  EXECUTED 

T-OUT  54  NX  47  EP  T-OUT  54  NX  47  EP  T-OUT 
73  CA  MIS-M  80  CB  83  LR  21  PR 
141  NX  134  EP  152  CA  23  PR 


STUDENT  3 

19  PR  47  EP 
109  UN  47  EP 
134  EP  T-OUT 
VARIABLE  1 
21 


21  STATEMENTS  EXECUTED 
73  CA  MIS-M  80  CB  MIS-M 
73  CA  83  LR  21  PR 
141  NX  134  EP  152  CA 


100  WA  MIS-M 
134  EP  T-OUT 
23  PR 


141  NX 


STUDENT  4  24  STATEMENTS 

19  PR  47  EP  T-OUT  54  NX 

54  NX  47  EP  T-OUT  54  NX 

VARIABLE  1 
24 


EXECUTED 

47  EP  T-OUT  54  NX  47  EP  T-OUT 
21  PR  134  EP  152  CA  23  PR 


STUDENT 


46  STATEMENTS  EXECUTED 


19  PR 

47  EP  73  CA 

MIS-M 

80  CB  MIS-M 

o 

o 

i — i 

WA  MIS- 

-M 

109  UN 

47  EP  T-OUT 

54  NX 

47  EP 

73 

CA 

83  LR 

21 

134  EP 

T-OUT  141  NX 

134 

EP 

T-OUT 

141 

NX 

134  EP 

T-OUT 

141  NX 

134  EP  T-OUT 

141 

NX 

134 

EP  T-OUT 

141  NX 

134  EP 

T-OUT  141  NX 

134 

EP 

T-OUT 

141 

NX 

134  EP 

T-OUT 

141  NX  134  EP  T-OUT 

VARIABLE  1 

46 

141 

NX 

134 

EP 

152  CA  23 

PR 

Figure  4.6 


Simulation  Output  for  Random  Response  Model 
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The  two  separate  circumstances  under  which  subroutine  MODEL  is 
called  are  clearly  evident  in  the  coding  of  the  above  random  response 
model.  If  a  node  is  encountered,  execution  transfers  to  99.  Otherwise 
variable  IX(1)  is  incremented  by  1  and  execution  returns  to  the  calling 
program  (STRACE).  Since  all  variables  are  initially  set  to  zero  for  each 
student,  and  since  NODE  is  false  whenever  MODEL  is  called  at  the  execu¬ 
tion  of  an  instruction,  variable  IX(1)  will  add  up  to  be  the  total  number 
of  instructions  executed  for  each  student.  This  agrees  with  the  printed 
simulation  output  for  the  random  response  model  (Figure  4.6),  as  applied 
to  interact  with  the  course  sequence  of  Figure  4.4.  For  example,  20 
statements  were  executed  for  the  first  simulated  student,  and  the  value 
of  variable  1  is  also  20. 

Whenever  MODEL  is  called  at  a  response-dependent  node,  NODE  is  true 
and  subroutine  RANDU  (from  the  IBM  System/360  Scientific  Subroutine 
Package,  1968)  generates  a  pseudorandom  number  R  uniformly  distributed 
between  0  and  1.  The  integer  5093  is  the  starting  point  of  the  sequence 
of  pseudorandom  numbers.  If  R  is  less  than  0.5,  BRANCH  is  set  to  false 
(the  response  is  a  match  or  in  time) ,  otherwise  true  is  assumed  and  the 
response  is  a  mismatch  or  time-out. 

In  this  way,  the  random  response  model  provides  for  simulated  student 
responses  whenever  a  response-dependent  decision  point  is  encountered  in 
a  CAI  course.  However,  this  simple  model  is  unlikely  to  give  an  accurate 
simulation  of  the  response  of  real  students. 

3.  A  Two-Group  Model 


This  is  a  second  example  of  a  student  simulation  model  for  use  with 
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the  course  sequence  of  Figure  4.4.  In  this  model  there  are  two  groups 
of  simulated  students,  referred  to  as  HIGH  and  LOW,  with  four  students  in 
each  group.  Probabilities  of  being  in  time  or  matching  are  specified  for 
each  group  at  each  of  the  seven  response-dependent  nodes  of  the  example. 
The  fourteen  variables  representing  frequencies  of  path  selection  (in 


time  or  match  and  time-out  or  mismatch  frequencies)  at  each  node  are 
generated  for  each  student.  Simulated  students  1  to  4  are  in  the  HIGH 
group,  while  students  5  to  8  are  in  the  LOW  group.  Here  is  the  Fortran 


coding  for  this  second  model. 


SUBROUTINE  MODEL (N , IX , IREF , ICELL , NODE , BRANCH) 
C  MODEL  2 

INTEGER  IX(1) ,IR/5093/ 

LOGICAL  NODE, BRANCH 

INTEGER  NODES ( 7) /47 , 73 , 80 , 100 , 134 , 152 , 159 / 
REAL  HIGH (7)/. 90, .70, .70, .20, .80, .60, .90/ 
REAL  LOW(7)/.45, .35, .35, .40, .40, .30, .45/ 

IF (.NOT. NODE)  RETURN 
DO  100  1=1,7 

IF (IREF. EQ. NODES (I) )  GO  TO  102 

100  CONTINUE 

WRITE (6, 101)  IREF 

101  FORMAT (’UNEXPECTED  NODE ’ 15 ,' ENCOUNTERED ’ ) 

STOP 

102  CALL  RANDU (IR,IY,R) 

IR=IY 

IF(N.LE.4.AND.R.LT.HIGH(I))  GO  TO  103 
IF(N.GT.4.AND.R.LT.L0W (I))  GO  TO  103 
IX(2*I)=IX(2*I)+1 
RETURN 

103  IX(2*I-1)=IX(2*I-1)+1 
BRANCH=. FALSE. 

RETURN 

END 


The  array  NODES  contains  the  reference  numbers  of  the  7  response- 
dependent  nodes  in  the  example:  47  EP,  73  CA,  80  CB,  100  WA,  134  EP , 
152  CA,  and  159  FN2.  Arrays  HIGH  and  LOW  contain  the  in-time  or  match 
probabilities  of  the  HIGH  and  LOW  groups  at  each  of  the  7  nodes.  The 
HIGH  group  is  given  twice  the  probability  of  the  LOW  group  for  being  in 
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time  or  matching  at  each  node  except  node  100  WA,  where  the  LOW  group  has 
twice  the  probability  of  matching  as  the  HIGH  group.  The  values  of  the 
probabilities  could  be  estimated  by  the  course  author  from  his  familiarity 
with  the  course  and  with  the  students  being  simulated.  Alternatively,  if 
the  intention  of  the  simulation  is  to  test  a  learning  theory,  branching 
decisions  should  be  derived  from  the  theory.  For  this  fictitious  example, 
the  probabilities  HIGH  and  LOW  were  selected  fictitiously. 

This  second  MODEL  does  not  make  use  of  information  about  instructions 
encountered,  so  that  execution  returns  to  the  calling  program  if  NODE  is 
not  true.  The  subscript  I  of  a  node  is  identified  in  the  DO  100  loop  by 
matching  its  reference  number  with  the  stored  array  NODES.  An  error 
message  is  printed  if  no  match  is  found.  Otherwise  RANDU  generates  a 
random  number  R  uniformly  distributed  between  0  and  1.  If  R  is  less  than 
the  stored  probability  (HIGH(I)  for  students  1  to  4  and  LOW(I)  for  stu¬ 
dents  5  to  8)  of  being  in  time  or  matching  at  the  specific  node,  execution 
transfers  to  103  and  BRANCH  is  set  to  false.  Otherwise  BRANCH  is  true. 

The  variable  representing  the  in-time  (match)  counter  for  the  node 
(IX (2*1-1) )  or  the  time-out  (mismatch)  counter  (IX(2*I))  is  also  incremen¬ 
ted  accordingly.  For  example,  with  IREF  equal  to  47  (node  1),  variable 
IX(1)  is  incremented  if  R  is  less  than  HIGH(I)  or  LOW(I) ,  otherwise 
variable  IX(2) ,  the  time-out  counter  for  node  1,  is  incremented.  The 
result  is  that,  for  each  student,  the  odd-numbered  variables  IX (1)  to 
IX(13)  are  the  in-time  (match)  frequencies,  while  even-numbered  variables 
IX(2)  to  IX(14)  are  the  time-out  (mismatch)  frequencies  for  nodes  1  to  7. 

Simulation  output  for  the  two  group  model  (Figure  4.7)  shows  a 
predictable  tendency  for  the  students  in  the  LOW  group  to  have  longer 
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Simulation  Output  for  Two-Group  Model 


paths  through  the  course.  This  second  model  is  more  specific  than  the 
random  response  model,  in  that  the  model  provides  different  parameters 
for  each  response-dependent  decision  point  in  the  course.  The  random 
response  model  could  apply  to  any  course  or  sequence  of  Coursewriter  II 
instructions,  but  the  two-group  model  just  described  has  been  tailored 
to  meet  specific  requirements  of  the  particular  course. 


CHAPTER  V 


Discussion 
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DISCUSSION 


A.  Evaluation  of  the  Simulation 

The  preceding  chapters  have  presented  a  simulation  of  the  logical 
aspects  of  the  interaction  that  takes  place  between  computer  and  student 
in  a  computer-assisted  instructional  setting.  The  simulation  programs 
developed  deal  with  both  the  instructional  and  learning  aspects  of  this 
interaction,  specifically  for  the  IBM  1500  Instructional  System  and  the 
Coursewriter  II  language. 

The  programs  that  develop  the  list  structural  representation  of  a 
course,  as  described  in  Chapter  III,  and  the  printout  of  this  structure 
in  the  form  of  a  logic  chart  (Chapter  IV,  section  A)  deal  only  with 
instructional  aspects  of  CAI.  In  contrast,  the  systematic  path  tracing 
and  the  student  response  model  programs  (Chapter  IV,  sections  B  and  C) 
involve  dynamic  simulation  of  execution  of  a  course. 

Adequacy  of  the  simulation  is  now  discussed  with  respect  to  three 
criteria  -  generality,  accuracy,  and  usefulness. 

1.  Generality 

Although  the  simulation  was  developed  in  the  context  of  the  Univer¬ 
sity  of  Alberta  IBM  360/67  and  the  IBM  1500  Instructional  System,  the 
application  of  the  programs  is  more  general.  The  simulation  is  intended 
to  input  any  course  which  meets  the  specifications  of  the  Coursewriter 
II  language,  regardless  of  the  origin  or  purpose  of  the  course.  However, 
the  simulation  programs  developed  in  this  thesis  do  not  accept  course 
input  in  any  other  CAI  language,  and  could  not  easily  be  modified  to  do 
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so.  Nevertheless,  some  of  the  ideas  relating  to  storage  of  course  logic 
in  list  structural  form,  and  the  specifications  developed  for  a  logic 
chart  and  path  tracing  could  be  applied  to  develop  simulation  programs 
for  other  course  languages. 

The  simulation  programs  are  implemented  on  the  IBM  360/67.  Because 
of  the  character  manipulation  operations  developed  for  the  programs,  a 
dependency  exists  on  the  32-bit  word  and  the  two ' s- complement  represen¬ 
tation  of  integers.  Thus  considerable  modification  would  be  required  to 
make  the  simulation  operational  on  a  computer  that  doesn't  have  these 
characteristics.  However,  it  is  easy  to  change  the  program  to  operate 
with  less  core  (for  example,  on  a  smaller  360).  Dimension  statements 
for  linear  arrays  exist  in  subprograms  IDIN,  LLIN,  LRIN,  SETIND,  STRIND , 
and  INHALT.  The  arrays  are  presently  dimensioned  at  16000,  to  make  16000 
MOSLIP  cells  available  for  use,  and  this  occupies  160  K  bytes  of  core 
storage.  The  statement  CALL  INITAS (16000)  in  the  main  program  would  also 
have  to  be  altered  accordingly.  Of  course,  if  the  dimension  statements 
are  decreased,  the  programs  might  not  be  able  to  simulate  lengthy  Course- 
writer  courses.  With  16000  MOSLIP  cells,  it  is  estimated  that  a  typical 
course  of  up  to  5000  Coursewriter  II  instructions  can  be  handled. 

The  specifications  of  the  logic  chart  (Chapter  IV,  section  A)  put 
some  restrictions  upon  the  type  of  course  for  which  a  chart  can  be  printed. 
It  is  possible  for  all  16  channels  to  become  occupied  at  once,  and  any 
further  branching  introduces  an  endless  printing  loop  as  each  channel 
waits  for  others  to  clear.  Since  the  instructions  associated  with  each 
problem  (pr)  are  printed  separately,  this  difficulty  can  arise  in  printing 
the  chart  for  a  course  with  insufficient  number  of  pr  instructions.  The 
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generality  of  the  logic  chart  program  is  restricted  to  courses  that  have 
pr  statements  at  convenient  places. 

This  difficulty  with  the  logic  chart  is  associated  with  the  fact 
that  instructions  following  a  branch  to  a  label  are  printed  even  if  the 
label  is  found  much  later  in  the  course  input  data.  This  permits  a  multi¬ 
plicity  of  branches  to  appear  within  close  proximity  to  each  other  on  the 
chart.  The  accuracy  of  the  chart  is  not  affected  by  this  difficulty;  the 
consequences  are  overcrowding  and  the  possibility  of  an  endless  printing 
loop . 


An  important  feature  of  the  simulation  is  the  separation  of  the 
instructional  aspects  (course  material  and  instructional  logic)  from  the 
student  response  or  learning  aspects.  A  user  who  wishes  to  construct  and 
test  a  student  response  model  does  not  have  to  be  concerned  about  simu¬ 
lating  the  course,  because  the  simulation  program  does  this  separately 
and  automatically.  Nevertheless,  one  may  make  use  of  information  about 
the  course  (for  example,  the  whereabouts  of  a  simulated  student  in  the 
course)  in  order  to  make  decisions  at  response-dependent  nodes  and  to 
construct  simulation  variables. 

There  is  very  little  to  restrict  the  generality  of  procedures  for 
constructing  student  response  models.  The  full  algebraic  power  of  Fortran 
is  available  to  the  user  in  the  MODEL  subroutine,  as  well  as  information 
about  the  course  and  the  values  of  constructed  simulation  variables.  The 
last  example  of  Chapter  IV  illustrates  the  use  of  some  of  this  flexibil¬ 
ity  for  decision-making.  However,  it  is  necessary  for  the  student  response 
model  to  be  specific  enough  to  provide  decisions  at  each  response-depen- 
dent  decision  point  in  the  course.  This  means  that  any  student  model  to 
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be  considered  must  be  sufficiently  definite  that  responses  are  predicted 
by  the  model  whenever  called  for  by  the  instructional  program. 

2 .  Accuracy 

The  conventions  of  the  list  structural  representation  developed  in 
Chapter  III  are  intended  to  define  an  exact  simulation  of  the  logical 
structure  of  any  course  written  in  Coursewriter  II.  Although  it  is 
believed  that  the  conventions  are  sufficient  to  provide  an  exact  repre¬ 
sentation,  a  proof  of  this  assertion  would  be  difficult,  especially  on 
account  of  the  complexity  of  the  implicit  branching  mechanism.  All  con¬ 
tingencies  implied  by  the  Course  Flow  Decision  Table  (Figure  2.1)  are 
provided  for  by  storing  the  table  in  coded  form  (Figure  3.13)®  However, 
the  implementation  of  the  conventions  involves  many  detailed  procedures, 
and  inaccuracy  could  be  introduced  at  some  point. 

The  logic  chart  program  (Chapter  IV,  section  A)  prints  the  list 
structure  established  to  represent  the  logic  of  any  course.  A  logic 
chart  has  been  printed  for  a  variety  of  courses,  and  no  discrepancy  from 
the  actual  logical  structure  has  been  noticed.  This  provides  evidence 
in  favor  of  the  accuracy  of  the  representation. 

In  contrast,  the  dynamic  tracing  of  paths  through  the  simulated 
logical  structure  of  a  course  is  easily  shown  to  have  inaccuracies  under 
certain  circumstances.  There  are  at  least  two  instances  where  the  pro¬ 
gram  may  trace  incorrect  paths. 

(a)  In  Coursewriter  II,  each  of  the  16  bits  of  a  counter  may  be  used  as 
a  switch  at  the  same  time,  so  that  is  possible  to  store  an  integer 
in  a  counter  and  refer  to  each  bit  through  the  corresponding  switch. 
Simulated  counters  and  switches  are  all  assigned  to  separate  storage 
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areas,  because  of  the  difficulties  of  bit  manipulation.  Inaccuracy 
in  dynamic  path  tracing  is  thus  introduced  whenever  branches  depend 
upon  the  fact  that  counters  and  extra  switches  occupy  the  same  stor¬ 
age  area.  For  most  courses,  this  is  not  a  major  problem. 

(b)  A  more  basic  difficulty  is  with  the  use  of  functions  (fn)  that 

change  the  values  of  counters  and  switches.  Functions  are  written 
in  assembly  language,  rather  than  Coursewriter  II,  and  hence  are  not 
simulated.  If  a  course  has  conditional  branches  depending  on  coun¬ 
ters  and  switches  whose  values  have  been  set  by  functions,  incorrect 
paths  will  be  traced.  This  is  a  major  problem  since  functions  are 
receiving  increased  use  on  account  of  the  many  inflexibilities  of 
the  Coursewriter  language. 

The  accuracy  of  student  response  models  must  be  tested  by  comparison 
with  real  students.  Because  of  the  variability  of  human  behavior,  great 
accuracy  in  response  simulation  should  not  be  expected.  The  development 
of  models  in  this  area  requires  special  attention,  and  it  seems  likely 
that  stochastic  models  should  be  employed  (Bush  &  Mosteller,  1955). 

3.  Usefulness 

Generality  and  accuracy  are  prerequisites  to  the  usefulness  of  any 
simulation,  but  the  stated  purpose  for  this  CAI  simulation  is  to  provide 
assistance  for  course  authors.  In  particular,  the  main  purpose  is  to  aid 
in  the  development,  debugging,  and  documentation  of  Coursewriter  II 
courses  for  the  IBM  1500. 

Probably  the  most  useful  product  of  the  thesis  is  the  logic  chart, 
which  draws  a  two-dimensional  picture  of  branches,  merges,  and  sequential 
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execution  of  instructions  in  a  course.  The  logic  chart  is  particularly 
effective  in  portraying  branches  in  the  instructional  logic.  Merges  are 
less  clearly  depicted,  because  no  line  is  drawn  to  a  point  of  merger. 
Instead,  the  user  of  the  logic  chart  must  search  the  chart  on  his  own  to 
find  the  point  of  merger,  with  the  assistance  of  the  augmented  course 
listing  for  cross  reference.  Nevertheless,  the  logic  chart  depicts 
course  logic  in  a  perceptually  useful  form  that  is  almost  language  inde¬ 
pendent  . 

A  logic  chart  has  been  printed  for  a  variety  of  courses  in  order  to 
evaluate  the  effectiveness  of  the  logic  chart  program.  Crowding  is  some¬ 
times  a  problem,  because  a  branch  to  a  label  is  printed  even  if  the  label 
is  found  much  later  in  the  course  input  data,  so  that  a  multiplicity  of 
branches  may  develop  in  close  proximity  on  the  chart.  This  also  increases 
the  difficulty  of  cross  referencing  labels  on  the  chart  with  the  augmented 
course  listing. 

In  addition  to  its  usefulness  in  debugging  and  documentation  of  in¬ 
structional  logic  of  courses,  an  important  application  of  the  logic  chart 
could  be  as  a  tool  in  teaching  the  Coursewriter  II  language.  Because  of 
the  hidden  complexity  of  implicit  branching,  it  is  frequently  difficult 
for  a  student  learning  Coursewriter  II  to  grasp  the  logical  structure  of 
a  sequence  of  instructions.  The  logic  chart  has  not  yet  been  applied  for 
this  purpose,  but  considerable  potential  exists  for  its  usefulness  in  this 
area. 


The  systematic  path  tracing  program  provides  a  detailed  list  of  major 
instructions  along  all  possible  response-consistent  paths  in  a  course. 

This  produces  considerable  information  about  the  dynamic  logic  of  a  course. 
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However,  as  already  mentioned,  there  may  be  errors  in  the  accuracy  of 
the  path  as  constructed,  particularly  when  functions  affect  counters  and 
switches  used  for  conditional  branching.  As  well,  the  path  tracing  pro¬ 
gram  locates  more  paths  than  what  may  be  of  interest  to  a  course  author, 
even  with  the  response-consistency  assumption.  Path  tracing  would  seem 
to  be  most  useful  for  detailed  logical  analysis  of  short  courses  without 
function  calls. 

The  usefulness  of  the  student  simulation  program  awaits  the  devel¬ 
opment  of  adequate  student  response  models.  Probably  the  main  Importance 
of  this  aspect  of  the  work  is  the  provision  of  a  framework  within  which 
student  response  simulation  models  may  be  expressed,  and  simulation  vari¬ 
ables  may  be  computed  for  testing  the  model  against  real  students. 

Finally,  the  efficiency  of  the  simulation  deserves  brief  mention. 

The  simulation  programs  use  core  memory  only,  without  recourse  to  peri¬ 
pheral  storage  media.  The  representation  of  a  Coursewriter  II  course  as 
a  list  structure  is  created  in  one  pass,  and  the  logic  chart  is  printed 
in  one  traversal  of  the  list  structure.  This  takes  about  0.7  minutes  of 
execution  time  on  the  IBM  360/67  for  each  1000  Coursewriter  cards  input. 

Systematic  path  tracing  and  student  simulation  are  slower  because 
the  list  structure  is  traversed  from  the  beginning  for  each  path  or 
student.,  In  a  course  with  about  500  instructions,  206  paths  were  traced 
in  2,40  minutes. 

B,  Suggested  Further  Research 

A  number  of  suggestions  for  further  research  stem  from  the  evalua¬ 
tion  of  the  simulation  discussed  in  the  previous  section.  The  logic 
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chart  could  be  improved  by  the  addition  of  a  mechanism  providing  for 
separation  of  output  by  labels  as  they  are  encountered  in  the  course. 

This  would  solve  the  problem  of  crowding  on  the  chart  and  provide  better 
cross  reference  with  the  course  listing.  Perhaps  also  a  better  method 
could  be  developed  for  the  designation  of  merges  so  that  the  user  would 
not  have  to  search  the  chart  for  the  point  of  merger. 

The  systematic  path  tracing  could  be  improved  by  providing  exits  for 
the  simulation  of  functions.  Perhaps  also  a  more  powerful  scheme  could 
be  devised  for  the  elimination  of  paths  that  are  not  of  interest  to  an 
author o  The  assumption  of  response  consistency  eliminates  the  tracing  of 
many  similar  paths,  but  there  seems  to  be  a  greater  need  for  selectivity 
in  path  tracing. 

The  development  of  adequate  student  learning  models  for  CAI  is  a 
large  area  that  is  left  untouched  by  the  work  of  this  thesis.  Provision 
is  made  for  users  to  code  their  own  student  models,  and  to  tailor  them  to 
the  requirements  of  a  specific  course.  Methods  of  comparison  of  the  paths 
traced  by  real  and  simulated  students  would  need  to  be  devised. 

The  simulation  programs  developed  in  this  thesis  for  the  purpose  of 
author  assistance  have  so  far  received  little  use  by  authors.  Most  authors 
develop  their  courses  in  interactive  mode  online  with  the  IBM  1500,  but 
the  simulation  requires  entry  of  courses  to  the  IBM  360/67.  Thus  a  step 
is  required  to  transfer  the  information,  by  means  of  cards,  from  the  1500 
to  the  360.  If  the  simulation  programs  were  implemented  on  the  IBM  1500, 
this  intermediate  step  and  delay  would  not  be  necessary,  and  use  could  be 
made  of  graphical  display  devices. 
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APPENDIX 


Computer  Program  CL2 


COMPUTER  PR  HO R A m  01  7 


■t— -  ^  ‘  <  "  !'■>  r.  '  ' 

COMMON  LAVStLW(lO) 

INTEGFR  COL ( 80 )  ,  LCURR  (2) ,TITLE ( 20 ) , BLANK/*  *  / 

REAL  OPCODE ( 20)  /*EA*  , *NX* , *AA'  ,  *CA*  ,  'WA'  ,  *UN*  , *PR*  ,  *WB* , ’CD* , 

1  ’ AB* , »  E  P* ,  *  BR  *  ,  *  TR*  ,  »  AD*  ,  » S3 ’ , *  MP '  ,  *  DV  »  f  «  LR*  ,  ' LD*  ,  1  FN* / 

91  CONTINUE 

CALL  IN  I  TAS ( 160C0) 

M  INGR=0 

NPR= 100 

N  =  0 

DO  90  1=1,2 

90  LCURR ( I ) =LI ST (2 ) 

LCORSE=MADLST( L I  ST ( 3 ) ) 

CALL  NFWBOT ( LCORSF »  NEWBOT (6,LCURR( 2) )  ) 

READ(5,88)  TITLE 

88  FORMAL { 20 A4) 

1 F { TITLE(l) .EQ. TITLE! 2) J  STOP 

WRITE(6,99)  TITLE 

99  FORMAT ( 1 H 1 ,37X,2CA4) 

READ (5, 89)  ITAPE,NLOOP, I L  I  S T f I TR AC E , I  CHART  »  NPER , NVAR, l PUNCH 

89  FORMAT (  1615) 

IF  (  IT  APE .EO  .0  )  I T  A  P  E  =  5 

I F ( ITAPE. NE. 5)  REWIND  ITAPE 

IF(NLOOP.EQ.O)  NLO0P=10 

DO  98  1=1,8 

98  CALL  NEW  ROT (MADLST(LIST(2)) , LW ( 8 ) ) 

M=NEWBOT  (  *  TO  E’,NEWBOT('P  *,LW(10))) 

CALL  SET  I NO ( -6  » - 1 , - 1 »  M ) 

L  W  (  9  )  =  M  A  C  L  S  T  <  L  W  (  10)  ) 

1000  R  E  AC { ITAPE, 101 )  COL 

101  FORMAT ( 8CA1 ) 

I  NSTR= 100 

IF (COL (  1  )  .EQ  .BLANK )  CO  TO  103 

NAMING ( L IMTER (COL ( 1 ) , 12 , *  •  ,  1 , N  )  , L IMTER ( COL ( 1 ) , 12 , *  * , 1,N)  > 

NEXT=NUL ABL ( COL < 1 ) , N ) 

CALL  NEW  TOPI  11 , NEW T OP ( NE X T , LC URR ( 2 )  ) ) 

LW( 9)=MADLST (LW( 10 ) ) 

I F {  I  LIST  .EQ.O)  WRITE (6, 98  1)  { CO L( I), 1=1, 12), COL 

981  FORMAT ( 1X,12A1 ,25X ,80A1 ) 

N  =  0 

102  I  F  (  CCl  (72)  .EQ. BLANK. AND*LIMTFR(  COl  (  1 1 )  ,  61 ,  *  -**  »  ,  2 ,  M  )  .  EQ  .  6 1  )OOTOl  09  0 

READ (5,1  Cl)  COL 

IF (  IL  1ST  .EQ.O )  WRITF(6,10A)  COL 

104  FORVAT ( 38X, 8CA1 ) 

GO  TO  102 

103  I  F( CCL ( 7  )  .EQ  .BLANK )  GO  TO  800 

1_ N  =  N+1 

HP  =  PACK  (  COL (  7)  , COL ( 8  )  ,  BLANK , BLANK ) 

OPFR  =  PACK { COL ( 7 ) , COL { 8 ) ,COL ( 9 ) , COl  (10)) 


' 


I  ( 


9  6 


10? 

108 

109 

109  1 

no 


800 


801 

— 

802 


806 

807 


808 

809 


100 

804 


805 

803 


?0 


400 


on  108  INSTR=1.2Q _ 

IF(OPCGOE(  INSTR  )  .EQ.OP)  GO  TO  109 
CONTINUE 
I  NSTR=2 1 

I  F (  I NSTR  .L  E . 1 1 )  GO  TO  800 

IF!  INSTR. EQ. 20. AND. C0L!9) .NE. BLANK)  GO  TO  20 
I F (  I  TOP ( 1ST  ,  LCURR ( 2  )  )  )  100, 110,  100 _ 

CALL  NEW80T (OPER  ,LST  ) 

I F (  INSTR  .EQ. 18)  GO  TO  18 

IF! . INSTR  .GE  .14.  AND.  INSTR  .LE  .19)  CALL  D  I  SEC  T  !  C  01-  ,  IN_S  T  R  ,  L  ST  ) 

IF  (  INSTR.  GT. 13)  GO  TO  100 
T  =  0 

IF (INSTR. FQ. 12)  CALL  BR ( COL , LBR , I  , L ST  ) _ 

IF <  INSTR  .EQ. 13)  CALL  TR! COL, LBR) 

M=NEWBOT (NAME! LBR) ,LST  ) 

CALL  SET  IND ! -2, -1 , -1 ,M) _  _ _ 

IF(I.NE.C)  GO  TO  100 

NFXT  = MAJOR  (OPER  ,  I NSTR * LCURR , M I  NOR , NPR ) 

IF (  INSTR  .EQ . 100 )  GO  TO  400 _ 

IF(NFXT)  801,100,801 

1  F {  INSTR. EQ. 7)  GO  TO  806 

IF (  INSTR  .EQ. 11 )  GO  TO  808 _ 

I  F  (  ILIST.EQ.O)  Vv  RITE  (6, 802)  NEX  f ",  N ,  ( C  0  L  (  I  )  ,  1=7, 8  0  ) 

FORMAT (  I  34, I 8,2X,74A1  ) 

GO  TO  1Q2 _ 

I  F  (  ILIST.EQ.O)  WRITE! 6,807)  OPE R , NE XT , N , ( COl t I )  ,  I  =7 , 80 V 
FORMAT {18X, A 3,  I  13,  IS,2X,74A1) 

GO  TO  102 _ 

I F (  ILIST.EQ.O)  W  R  I  T  E (  6 , 3  0  9 )  OPER, NEXT, N, (COL(I)  ,1  =  7,80) 
FORMAT (2 4X, A3, 17, I8,2X,74A1 ) 

GO  TQ  1Q2 _ 

CALL  LP ( COL , L ST  ) 

IF ( M I NOR  )  804,805,804 

NFXT=MINCR _ 

M  I N  0  R  =  0 
GO  TO  801 

IF(  ILIST.FQ.O)  WRI TE (6,803)  N , ( COL ( T ) , I =7 , 80  ) _ 

FORMAT! I42,2X,74A1 ) 

GO  TO  102 

INS  TR  =  C  0  L  !9  )/ 16  77721  6-H5 _ 

IF( INSTR. EQ. 4. OR. INSTR. GT. 7)  GO  TO  1091 
INSTR=INSTR+1 

IF (  INSTR  .GT .3 )  I NSTR= I NSTR  +  2 _ 

IF !  INSTR  .EQ  .6  )  INSTR=7 

IF (  INSTR .FQ.3)  CALL  FN2 ( COL , 1  NS TR , L ST  ) 

GO  TO  800 _ 

CCNT INUE 

IF! ILIST.FQ.O)  KRITE(6,99)  TTTLF 

IF!  ITRACE.EQ.Q?  CALL  TRACE  (  I.COR  SF  ,  NLOOP  ) _ 

IF ( NPFR . EQ.O )  GC  TO  401 
WR I T  E ( 6 , 99 )  TITLE 


} 


' 


5 


I!  ' 


)  :  i  .  .  i  ■ '  i 


9  7 


_ CALL  STRACE(LCORSE,NLCOP,NPER,NVAR,  IPUNCH) _ 

401  I F ( ICHART.NE.O)  GO  TO  40? 

WRITE <6, 09)  TITLE 

_ CALL  CHAR T ( LCQRSE ) 

402  00  93  1=1,10 

93  CALL  MTL  IST(LW( T  )  ) 

l _ GO  TO  91 _ 

END 

SUBROUTINE  MODEL  IN,  IX,  I  RET,  IC  EL  L  ,  NODE  ,  BR  ANC  H  ) 

C  MODEL  1  -  RANDOM  RESPONSE  MODEL 

INTEGER  I X ( 1 ) , I R / 5 0  9  3 / 

LOGICAL  NODE, BRANCH 

_ IC(NOOF)  GO  TO  9  9 _ 

ixm=ixm+i 

RETURN 

99  CONTINUE _ _ _ _ _ _ 

CALL  RANCUI  TR,  IY,R  ) 

IR=  I  Y 

_ I  E  (  R  ,  L  T  .0.5)  SR ANCH=. FALSE. _ 

RETURN 

END 

_ SUBROUT  I  NF  FN?( COL , INSTR, LST ) 

INTEGER  COL (  1  ) 

RETURN 

_ END _ 

SUBROUTINE  ST  RACE! L CORSE, NLOOP ,NPFR,NVAR, I  PUNCH) 
COMMON  LAVS , LW ( 10 ) 

LOGICAL  I VAL, TOUT, NODE, BRANCH 

INTEGER*?  CI31) ,  S  (  5  2  8  ) 

INTEGER  RR ( 6) , IUN2RR ( 6 )  ,  I  X { 250) 

_ NP  AT  H  =  0 _ 

T01JT=. FALSE  . 

78  DO  85  1=1,31 

85  C(I  )  =  0 _ 

DO  86  1=1,528 

86  S ( I ) =0 

_ MEMGRY  =  l.  1ST  (3  ) _ 

LST=L CORSE 
ICELL=LST 

_ L  ENGT  H=  0 _ 

LASTEP=0 

NEXT=LST 

_ IFINVAR.EQ.O)  GO  TO  99 _ 

DO  9  8  1  =  1, NV AR 

98  IX<I)=0 

99  NR  ING=C _ _ 

LR I NG=0 

100  I C ELL  =  LR  INI  ICELL  ) 

_ I  D= I D I N {  ICELL) _ 

I F (  ID-1  )  200,301,500 

101  LENGTH=L  ENGTH+1 


'  •  . 


(  *  '1  '  }  » 


_ NOOF  = . F ALSF  . _ 

CALL  MOD EL < NP AT H, IX, LST, ICELL , NODE ,  BR AMCH) 
IF(  ID.NE  ,6.  AND.  ID.NE  .7)  GO  TO  100 

. _ on  ion  1=6, id _ 

1011  I C E LL  =  L R IN (  I  CELL ) 

GO  TO  IOC 

200  I F (  ID.FQ  .0)  GO  TO  101 _ 

ID  =  -  ID 

I  F (  ID.FQ. 2)  GO  TO  301 

_ I F  C  ID  .L E  . 4  )  GO  TO  ? 50 _  _ 

IF  C  10—12  )  102,12,202 
102  IF (  ID.NE. 6. AND. ID.NE. 7)  GO  TO  100 
_ GO  TO  101 _ 

12  IFC  IVALC  ICELLtCtS)  )  GC  TO  101 
I C E L L  =  L R  IN (  ICELL ) 

_ GO  TO  101 

202  CALL  FXCLTEl  I C ELL, I D , C , S , P R , I UN  2  » I UN  2  RR ) 

GO  TO  101 

250  TF(  ID. ME. 4. OP  .  IlSHALTI  LST)  ,NE.6)  GO  TO  251 

I  F  (  MADLSTI  INHALT  (I  CELL)  )  .  EQ  .1ST  )  GO  TO  100 
IUN1-INHALT (LRINC ICELL ) ) 

. _ I F (  IUN1-IUN2)  3  01, 100,301 _ 

251  I F ( ID.FQ. 4. AND. TOUT)  GO  TO  301 
BR ANCH= . TRUE  . 

f _ NQDE=.  TRUE. _ 

CALL  NOD EL ( NP AT H, IX, LST, I  CELL, NODE, BRANCH) 
I F  C  .NOT. BRANCH)  GO  Tn  100 
_ I  F  (  ID.FQ. 3)  TQUT  =  .TRUE. _ _ 

301  LST=MADL  ST {  INHALT ( I  CELL  )  ) 

I F  f  LST— 11)  303,302,304 

30?  LST=LASTEP _ 

GO  TO  304 

303  LSTT=RR{ LST-1 ) 

I  F  f  IFIND (LSTT ,  LK( 7 )  ,M )  )  304,3031  ,?04 _ 

3031  LST -L  STT 

IUN2=IUN2RR (LST-1 ) 

304  NEXT  =  LLTMNEXT) _ 

1  =  1 

IF(NRING.NE.O)  GO  TO  402 

400  I  F  ( J  C  . JEC  .  1_ )  GO  TO  403 _ 

IF( IFIND (LST , MEMORY , NEXT) )  403,401 ,403 

401  LR I NG  =  LS  T 

40  2  IF( l P TNG  .FQ.LST )  NR  I NG  =  NR TNG-H _ 

IFINRING  .EQ.NLGOP)  GO  TO  500 
403  M=Nf:KlTCP  (LST  ,MENORY) 

. . .  C A LL  SET  IND ( -TO  ,~1 >-l  ,B) _ 

I  F (  I  .  EQ  .  2 )  GO  TO  100 

IF(  INHALT(LST)  .EQ.l 1  )  TOUT=. FALSE. 

_ I  C  E  L  L  =  L.  S  T _ 

IF(  INHALT(LST)  .NE.ll)  GO  TO  405 
IF ( LST. EQ. LA STEP)  GO  TO  404 


' 


I  «.  •  J 


. 


90 


_ LASTEP=LST _ 

I UN 2=0 

404  IIJN  2=  I  UN  2  +  1 

405  . TFINRING.FQ  .  0...  OR  .  I  NHALT  (NEXT)  .  EQ  .  LST  )  GO  T  0  _  10  0 

C A L  L  I P 0  P U P ( L  S f , M E M ORY) 

NR ING=0 

_ LR I NG  =  0  _ 

1  =  2 

GO  T 0  40  0 

500 . CONTINUE . 

C  A L L  P AT H I  M E M 0 R V  ,"  L  R  I N  G  ,  N  L  0 OFSNP  A TH,  LENGTH  ,  ’  S T U 0 E  NT . *1 

CALL  I RALST{ MEMORY ) 

_ I F ( NV  AR  .  EQ . 0  )  GC  TP  600 _ 

M=( NVAR+13) / 1 4 
00  540  J  =  1,M 

_ I  A=  J  *  1  4-  1 3 _ _ _ _ _ 

IR=J*14- J/M*< J*14-NVAR ) 

WR I TE ( 6 , 51 0 )  {  I  »  1=  I  A  ,  1 8  ) 

510  FORMAT ( 1  HO 5 X  *  V AP  I  ABL F «  1416) _ 

WRITE (6, 520)  (  I  X (I) , I  =  I  A , I R } 

520  FORMAT! 14X1415) 

_ IF  (  I  PUNCH  .NE  ._0_)  WRITF  (  7,530)  NPATH, J,  I  IXJ  I  )  ,  j  =  I  A,  I  B  ) 

530  FORMAT (1615) 

540  CONTINUE 

600  TF( NPATH  .NE.NPER )  GO  TO  78 _ 

RETURN 

END 

SUBROUTINE  T R ACE ( L CORSE, NLOOP ) 

COMMON  LAVS , L W i 10 ) 

LOGICAL  IVAL,TOUT 

_ INTEGFR»2  C( 31 )  >  S(  529  ) _ 

INTEGER  PR(6)  , IUN2RR (6) 

LRECPD=L  1ST ( ? ) 

_ L I  ST  EP=L I  ST ( 3  ) _ 

LSHUT=0 
NP ATH=0 

_ TOUT=. FALSE  . _ 

78  LD00R=0 

DO  85  1=1,31 

85  C(I)=0 _ 

DO  86  1=1,528 

86  S(I)=0 

_ MFMORY-L  1ST ( 3  ) _ 

LST=LCOR SE 
I C ELL=L  S  T 

_ L  ENGTH=0 _ 

L  A  S  T  =  0 
L AST  EP=0 

_ I  SHUT  =0  _ 

NEXT  =  L  ST 
99  NR  I NG  =  0 


100 

l R  ING=C 

100 

IC ELL  =  LR  INC ICELL ) 

I  D=  I  D  I N  {  ICELL) 

101 

IFI ID-1 )  200,301 , 500 

LENGTH=L ENGTH+1 

GO  TO  IOC 

POO 

IF{  IC.EQ  .0)  C-0  TO  101 

I  D  =  - I D 

T F {  IC.EQ. 2)  GO  TO  301 

I  F {  ID.LE  .4)  GO  TO  250 

102 

IFI  ID-12  )  102,12,202 

IFI  IC.NF  .7)  GO  TO  100 

L  ENGT  H=L ENGTH-1 

1? 

GO  TO  IOC 

IF(  IVALI  ICELL, C,S)  )  GO  TO  101 

I C ELL-LR  INI ICELL ) 

202 

GO  TO  101 

CALL  FXCUTFI  ICELL,  ID,C,S,RR, IUN2, IUN2RR ) 

GO  TO  101 

250 

IFI ID.NF.4.GR. INHALTI LST) .ME. 6)  GO  TO  251 

IFI  MADLSTI  INHALTIICELL)  )  .EQ.LST)  GO  TO  100 

I IJ  N 1  =  I  N  H  A  L  T  ILRIMICELL)  ) 

251 

IFI  IUN1-IUN2)  3 Cl, 100, 301 

IFI  ID. EQ. 4. AND. TOUT)  GO  TO  301 

IFILST.NE. LSHUT )  GO  TO  290 

IFI LDOOR  .NE .LAST )  ISHUT=LSHUT 

LAS  T  =  l.  DOOR 

L R F C  =  L 1  I  MLREC) 

290 

LSHUT=INHALT ILRFC) 

GO  TO  100 

IFI ID.NE.3)  GO  TO  295 

294 

IFI  IF IND I LST, LI  STEP, M)  )  2  94,100,204 

TOUT  =  .TRUE. 

GO  TO  296 

295 

IF (NRTNG.EQ.O )  GO  TO  296 

IFI MADLSTI INHALTI I  CELL )> .NE  .  INHALTI LL INI  NEXT) M  GO  TO  10 0 

296 

LDOOR=L  ST 

301 

LST -MADL  ST  I  INHALT  I  I  CELL )  ) 

I F  I  LST-  1 1 )  303,302,304 

30? 

LST -LA  ST  EP 

303 

GO  TO  304 

LSTT=RR I LST-1 ) 

IFI IFINDILSTT,LW(7) ,M) )  304,3031,304 

3031 

LST=LSTT 

I  UN 2=  I UN2RR.  I  L  ST  - 1  ) 

304 

NEXKL  L  INI  NEXT  ) 

400 

1=1 

IFI NRING.NE.O)  GO  TO  402 

IFI  IC.EQ  .1  )  GO  TO  403 

401 

IFI  IF TND (LST , MEMORY, NEXT )  )  403,401 ,40  3 

LR  I  NG=L  ST 

HI  '  .  Tt 


4°?  I Q{ LP  INO.FQ  .LST )  N  R  I  N  G  =  NR  7  NG+1 


•  c.  J.  '  U  1  i  nw  #  1  *  •  L_  I  /  '  l  'j  v.:  ~  1  '  ,1  Y  ’  J 

IF { NR  ING  .EQ.NLOCP )  GG  TO  500 

403  M=NFWT0P (LST, MEMORY) 

CALL  SET  IN0( -ID,-1  rl  ,M) 

IF(  I  .EQ.2)  GO  TO  100 

IF ( INHALT (LST ) . EO. 1 1 )  T  0UT= . F  AL SE . 

ICELL=l ST 

IF  (  INHALT(LST) .  NE* 11 )  GG  TG  405 

IF( LST.EG.LASTEP)  GO  TO  404 

LASTEP=LST 

I  UN  2  =  0 

404  I IJ  N  2  =  I U N  2  + 1 

405  I F ( NR ING • EQ • 0 . OR . I NH ALT (NEXT)  . FQ . L S T )  GO  TO  100 

CALL  I  POPUP ( LST  *  MEMORY ) 

NR  I NG=0 

L  R I  N  G  =  0 

1  =  2 

GO  TO  40 C 

500  CONTINUE 

CALL  PATHIMEMORY, LRING , NLOOP, NP ATH , LENGTH, *  PATH  NO.  1 ) 

CAL!  IRALST ( MEMORY ) 

IF  ( LOQPR  .FQ.C)  GG  TO  600 

IF(  INHALT(LOOOR) .FQ.ll)  GO  TO  501 

M=NFWTGP (LDOCRt  LRECRO ) 

5002  IH  LOOGR  .NE  .LAST  )  GO  TO  5004 

5003  CALL  I  POPUP ( L SHUT  v  M ) 

IF ( LSHUT  .NE . TSHUT)  GG  TO  5003 

5004  LREC=L!  I  MMADLST  (LRECRD)  ) 

LSHUT = INHALT (LREC) 

GO  TO  78 

501  CALL  NEWTGP(LDGCR» LI  STEP) 

M= LRECRD 

GG  TO  5002 

600  CALL  IRALST (LRECRO) 

CALL  IRALST ( L I  STEP ) 

RETURN 

END 

SUBROUTINE  P ATH < ME MORY , L R  ING, NL OOP, NP ATH, LENGTH , T I TL E ) 

TNTEGFR  CHANEL ( 32 ), IP ( 8 ), BLANK/ *  ,/,TITLEI2) 

I NT EGER  TOU/ > T-CU » / , T/ »  T  * / , MI S/ • M I S- 1 / , MA/ *  M  V , LOOP / *  LOOP  * / 

NPATH=NP ATH+1 

WRITE (6, 59)  TITLE, NPATH,LFNGTH 

99  FORMAT ( 1H0,2A4, 15, 10X15, »  STATEMENTS  EXECUTED’) 

I F ( LRING.EQ.C)  GO  TO  110 

NR  I NG= 1 

100  I  D  =  I  P  I  M LRIMWADLST ( MEMORY ) ) ) 

CALL  IPOPUPI LST, MEMORY) 

IF ( LST  .NE.LRTNG )  GO  TG  100 

NR  I NG=NR  I  NG+1 

IF(NRING.NE.NLOCP)  GG  TG  100 
M=NEWTOP  (LST  , MEMORY ) 


\  » 


10? 


I _ CALL  SET  IND(  ID. -1,-1  .*) _ 

110  IC.ELL  =  MADLST(  MEMORY) 

N=  0 

_ 1.1.1 _ IC  El.L  =  LL  I NJ  ICELL) 

112  ID  -  I D  I  N(  ICELL ) 

I F  C ID.GE.2)  GO  TO  700 

_ IF  {  ID ,F0 .-3  ?  GO  TO  300 _ 

IF ( ID. EQ.-4 )  GO  TO  400 
1120  I  REF  = INHALT (  ICELL) 
l _ INSTR= INHALT (  TREE  ) 

IF  t  INS  T  R  .  L  T  .  0  )  G  0  To"  "203  “ 

IF  {  (  N  +  3  )  .GT  .  32  )  GO  TO  500 

113  N  =  N  +  2 _ 

CALL  HOLLER  I  CHANEL ( N ) , IREF, IP ) 

M=  2 

1 _ 00  201  1=1,5 _ 

I F ( I P { 6-  I ) .EQ. BLANK  )  GO  TO  ?00 
IP( 6-I+M  )=IP(6-I  ) 

^ _ GO  TO  201 _ 

200  M=M+ 1 

201  CONTINUE 

> _ DO  202  I  =  1 ,  M _ 

202  IP (T)= BLANK 

CHANEL  (N-l  )  =  I  PACK (  IP(1),IP(?),IP<3),IP(4)) 

| _ CHANEL  IN  )  =  I  PACK  {  IP(5),IP(6),IP(7),IP(8)) _ 

M=  1 

GO  TC  2041 

;  203  M=  {  3  - I  NS  TR  ? / 4 _ 

IF {  ( N  +  M  +  1 ) .GT .3  2 )  GO  TO  600 

204  N=N+ 1 

_ CHANEL ( N  )=BLANK _ 

2041  DO  205  1=1, M 

IREF  =  LRIM  IRFF  ) 

205  CHANEL (N  +  f  )  =  INHALT(  IREF ) _ _ 

N=  N  +  M 

206  I F ( N • NE • 32 )  GO  TO  111 

_ ASSIGN  111  TO  I  R  AC  _ 

207  WRITE ( 6, 208)  ( CHAN FL (  I) , I  =  l  ,N ) 

208  FORMAT (2X32A4) 

[  N=0 _ 

GO  TO  l BACK ,  (111,301,401,113,204,701,1120,7001) 

300  I F (  (N+2)  .GT.32)  GO  TO  302 

301  N=N  +  2 _ 

CHANEL (N-l ) =  BLANK 
IF(N.EQ.2)  N=3 

_ _C HANE L  (  N-  l  )  =  TOU _ _ _ _ _ _ _ _ _ 

CHANEL ( N  )=T 
GO  TO  45 C 

302  ASSIGN  301  TO  IBACK _ 

GO  TC  207 

4C0  IF (  (N  +  2)  .GT.32)  GO  TO  402 


-Ml  -  ) 


' 

401 

N=N  +  ? 

CHAN  El  (N-l  )  =  B  L  A  N  K 

I F  I  N  .  EQ  •  2  )  N  =  3 

CHANEL { N-l ) =M I S 

450 

CHANEl  (  N  )  =  M  A 

IF ( N  *NE  .  3?  )  GO  TO  1 120 

ASSIGN  1  120  TO  IBACK 

40? 

GO  TO  207 

ASSIGN  401  TO  IBACK 

GO  TO  207 

500 

ASSIGN  113  TO  IBACK 

GO  TO  ?07 

600 

ASSIGN  204  TC  IBACK 

700 

GO  TO  207 

ASSIGN  701  TO  IBACK 

I F ( LRING.EQ.O)  GO  TO  7003 

7001 

IF  I  IN  +  ?  )  .GT  .32 )  GO  TO  7002 

N=N  +  ? 

CHANEL ( N- 1 ) =BL ANK 

CHANEL ( N  )  =  LOOP 

ASSIGN  7C1  TC  IBACK 

GO  TO  207 

7002 

ASSIGN  7001  TO  IRACK 

GO  TO  207 

700  3 

IE(N.NE.C)  GO  TO  207 

701 

RETURN 

END 

FUNCTION  ISWICHl  ICELL,  IN) 

I SW ICH= IUNPAK ( IN, 4) / 1677721 6+15 

IFIIDINI  ICELL) .NE.-6)  GO  TO  5 

TCELL=LR  INI ICELL  ) 

I AL PHA= I UNPAK ( INHAl  T(  ICELL)  ,  1  )/ 1 67772 1 6  +  63 

J=1Q 

GO  TO  8 

5 

I ALPH A= I SWICH+48 

IE( ISWICH.LT .0)  GO  TO  7 

I  AL  PH A= -  3  1 

K=  1 

J=  10 

I F (  ISWICH.LT. 9)  GO  TO  9 

7 

T  SW I CH=0 

J=1 

8 

IF!  I  ALPHA .GT  .  10  )  I ALPHA= I AL  PHA-7 

'  9 

IFII ALPHA. GT.O)  K=16 

I S W I CH -K  * ( ISWICH+J*! IUNPAKI  IN, 3 ) / 1677  7? 1 6+1 5 ) )  +  I ALPHA  +  3? 

RETURN 

END 

FUNCTION  ICOUNT ( ICELL , IN) 

I COUNT= IUNPAKI  IN, 4)/  1677721 6+ 15 

J=  1  0 

TFI  ICOUMT.LT. 9)  GO  TO  13 

1 

164 

I  CCUNT=Q 

13 

J=1 

IC.nUNT=  I  COUNT  +  J*  I I UNPAK I  IN, 3  )  /  1  67 77?  1  6+ 1 5  )  +  l 

RETURN 

END 

SUBROUT  I NE  EXCUTEI  I  CELL , I  NS TR , C , S , RR , IUN2, I  UN? RP  ) 
INTEGERS 2  C(  1  )  , S(  1  ) 

INTEGER  RR( 1 ) ,  IUN2RRI  1  )  ,  I P  I  2  )  , C  EE  / 'C  1  / 

K=  1 

IS=0 

I C  ELL=LR  INI ICELL ) 

IF  1 INSTR .NE. 18)  GO  TO  12 

LABEL- INFALTI ICELL  ) 

I C E L L  =  L R  INI  ICELL  ) 

N=-4 - T  D  I  M  ICELL  ) 

DC  11  I  =  1 »  N 

1  1 

I C FLL  =  1. R  INI  ICELL  ) 

1  =  1 UNPAK I  INHALT  I ICELL),4)/16777?lf+16 

RR I  I  )=LA8EL 

1? 

I UN2RR 1  I  )  =  I UN2 

RETURN 

IP{K)= INFALTI  ICELL  ) 

IFIICINI  ICELL). EQ. -5)  GO  TO  14 

I C= I  COUNT  I  ICELL , I P I K )  ) 

IP(K)=C< TO 

14 

IF(K-l)  14,14,15 

IC E LL=L R  IN( ICELL) 

K  =  2 

IN= INHALT (  ICELL  ) 

I F ( I UNPAK I  I N  »  2 ) . EQ .CEE  )  GO  TO  12 

IS= ISWICHI ICELL , IN) 

15 

I P I  2 )  =  S  I  IS) 

INST=INSTR-13 

GO  TO  11,2,3,4,4,6), INST 

1 

2 

IN=IP(2)  +  IPI 1  ) 

GO  TO  16 

I  N=  I  P  1  2  )  - 1 P  I  1  ) 

3 

GO  TO  16 

IN= IP ( 2 ) *IP(  1  ) 

GO  TO  16 

4 

6 

IN=IP(2)/IP(1) 

GO  TO  16 

IN=  IP  I  1  ) 

16 

IF (  I S.GT  .0  )  GO  TO  17 

C  (  I C  )  =  I N 

RETURN 

17 

S  I  I  S  )  =  I N 

RETURN 

END 

LOGICAL  FUNCTION  I VAL ( I  CELL ,C , S ) 

INTEGER*?  Cl  1  )  , S  I  1  ) 

1 


(  I  '  'M  'l  !  --H! 


( .(  M  r  (  >*n 

NF« , *  OF1 ,  1  O' / 


_ _ INTEGER  C  F  F  /  *  C  1  /  ,  R  r  L  ( 6 ) / 1  L1,1  LE  *  ,  1  F’,* 

ICFLL=LR  INK  I  CELL  } 

IN= INHALT { I CFLL ) 

. . I F (  IUNPAKC IN  ,2 )  . EQ .CEE  )  GO  jn  j q 

11=1  SWICHUCELL  ,  IN  } 

I  1  =  S  C T 1  ) 

_ [^3 _ _ _ 

GO  TO  12 

10  I1=IC0UNT( ICELL, IN) 

I  1  =  C (  II  ) 

ICELL  =  LR  INC  I  CEL L  ) 

IN= INHAL  T ( ICELL) 

_ DO  11  1  =  1,6 _ 

IF (REL ( T  )  . EQ.  IN)  GO  TO  12 

11  CONTINUE 

_ 12 _ IC  ELL=LR  INC  ICELL  ) _  _ 

I  2= INHALT  I ICELL ) 

IF {  ID  INC  ICELL)  .FQ.-5 )  GO  TO  13 
_ 12= I  COUNT (  TCELL  ,  I?  1 _ 

I ?=C ( 12) 

13  GO  TO  (1,2, 3, A, 5, 6), I 

1  IVAL=I 1  .LT  .  12 _ 

RETURN 

2  I V AL= I  1  .LF.  12 

_ RETURN _ 

3  TVAL=I 1 . EQ.  12 
RETURN 

4  I VAL  =  I 1 . NF.  12 _ 

RETURN 


I V A L  =  1 1 .  GE  .  12 
RETURN 


6  IVAL  =  I 1 .GT  .12 
RETURN 
END 


FUNCTION  MAJOR  ( OPER , I NSTR, LCURR , M I  NOR , NPR ) 
COMMON  LAVS ,  LVt  (  10 ) 

INTEGER  LCURR ( 1  ) 


:urr( 1  ) _ 

CONT I N ( 1 1 ) / 6 , 6 , 7 , 8 , 9 , 9 , 6 , 9 , 8 , 7 , 7/ 

BRANCH  (  U)/0, 10, 3,  4, 5, 1,0, 5, 4, 3, 2/ 

DECIDE (11,11)/! ,5*0, ] ,4*3, 2, 6*0, 4*3, 2 , 6*^ ,2*3,0, 

,7*0, 3  *3 , 2 , 6*0 , 3*3 ,0 , 2 , 4 , 5*0, 3*3 , C , 6*2 , 0 , 3  *3 , 0 , 7* 


INTEGER 

INTEGER 

INTEGFR 


_ DECIDE ( 11 ,11  )  /  I  ,5*0, 1  ,4* 3, 2, 6*0, 4*3, 2 , 6*0 , 2*3 , 0 , 3 , 2 , 6*0 

13,0, 2*3,2 ,7*0, 3*3, 2, 6*0, 3*3, 0,2, 4, 5*0, 3*3, 0,6*2, 0,3*3, 0,7*5, 3*3,0 
210*0,3,1 1*0/ 

INST  =  MINC( INSTR, 11  ) _ 

L  I  S  T  E  X=  0 
MA  J  0  R  =  0 

DO  710  1=1,2   


K  =  L  C  U  R  R  (  I  ) 

700  I  F  (  IPOPUPd  ST,K)  )  7091,701,7091 

7C1  CALL  I P  0  P  U  P ( L  A  S  T , K  ) 


I  CONO  DEC  IDE  (  INST, LAST) 
IF ( I  .EQ.  I)  GO  TC  704 


t  i  ! 


I  J 


106 

It.  S  T  =  L  S  T 

701  1 

702 

I F ( IPnPUP(NLST,K) )  704, 702 t 704 

CALL  I  POPUP ( NLAST , K ) 

IF(CECIDE( INST, NLAST)  .NE.  ICOND)  GO  TO  707 

IF( NLAST  .NE.LAST .AND.  ICQND.EQ.3)  GO  TO  70  3 

CALL  NEWBOT (NAME { II  ST  )  , NLST ) 

1 1.  ST- ML  S  T 

707 

GO  TO  7011 

NLST  =LCO PY {  I L ST  ,  NLST ) 

CALL  NEW  TOP ( NLAST, NEW  TOP { NLST,K ) ) 

704 

GO  TO  11,2,3,4,5), TCONO 

I F ( INSTR.GT.il )  GO  TO  711 

IF(LISTEX.NE.O)  GO  TO  707 

7041 

I F {  INSTR  .NE.7)  GO  TO  705 

CALL  IP0PUP(LISTEX,LW(8) ) 

CALL  I  T 0 P { L  I  S T E X  ,  L  W ( 8  )  ) 

CALL  NEWBOT ( MADL ST ( L I  ST ( 2 ) )  , L W ( 8) ) 

NPR  =  NPP  +  1 

CALL  STRING (NPR,  LI STEX) 

705 

GO  TO  706 

LI STEX  =  MADLST ( LIST  (2 )  ) 

CAI  L  STRING! INSTR, LIS TEX) 

706 

CALL  NEWBOT tOPFR ,L 1ST  EX ) 

IF ( INSTR .NE.6)  GO  TO  707 

I  UN  1 = I UN  1  +  1 

707 

M= NEWBOT ( I UNI , L I  ST  EX ) 

CALL  SETIN0(-8,-l,-l,M) 

NEXT=L ISTFX 

1 

IF(LST)  710,710,708 

NEXT  = LA STUN 

GO  TO  708 

2 

3 

CALL  IT0P(NEXT,LRIN(MADLST(LVM8)  )  )  ) 

GO  TO  708 

GO  TO  ( 3  1 ,32  )  ,  I 

31 

32 

K=  NEWTOP ( I  AST , NEWTOP I L ST , K )  ) 

GO  TO  70C 

NEXT  =MAC 1ST ( L  1ST  (2  )  ) 

M I NO R  =  NE  XT 

CALL  ST R  INQ ( C , N  E XT ) 

K  =  NEWTCP (LAST, NEWTOP (NEXT  ,K>  ) 

4 

GO  TO  709 

CALL  NEWBOT ( L ST, NEWBOT ( 10,LCURR (  1)  )  ) 

GO  TO  7QC 

5 

708 

NFXT  =  LW( 5  ) 

I F (  I.FQ.2.0R.LAST.EQ.10)  CO  TO  709 

M=NEWTOP (NAM E( NEXT ) ,  LRIMLST) ) 

CALL  SET  INO( -4,-1, -1 , V) 

IF ( LAST  .  EG. 2  )  CALL  SET  I ND ( -3 , -1 , - 1 , M ) 

IF (  ICOND  .EQ  .  2  )  CALL  SET IND ( -2 , -  1 ,- 1 , M ) 

7C9 

GO  TO  TOC 

M= NEWBOT (NAME (NEXT  )  , LST  ) 

u  { ; 


. 


» i  -  ,  * 

>  T 


107 

IF ( LAST . EQ.  10  .OR  .NEXT  .EQ .LW (9 ) .OR . I  CO NO .EQ. 2) 

7091 

1  CALL  SET IND ( -2  * -1 ,-l ,M) 

GO  TO  70 C 

I F ( L I  ST E X  .EQ  .0 . AND .  IN  STR . FO . 7 . AMO . I . EQ . 2 )  GO  TP  7041 

710 

CONTINUE 

TF(LISTEX.EQ.O)  RETURN 

LAST  =  CONT  IN (  INSTR) 

CALL  NEWBOT(LISTFX,NEWBOT{LAST,LCURR(2) ) ) 

IF?  INSTR. NF.  11)  GO  TO  7102 

LVI  (  9  )  =  M A  D L S T  (  LW  CIO)) 

7101 

7102 

TF ( L  I  STMT ( LCURR (1)  ) )  7102,7101,710? 

L W ( 9  )  =  L  ISTEX 

I  F  (  LAST  .  NE  .  6  )  CALL  NFWBOTIL  ISTEX, NEWBQT  (  BRANCH!  INSTR)  ,L  CUR?  (  1  )  )  ) 

IF I  INSTR  .EQ  .6 )  L AS TUN=L I STEX 

IF {  INSTR  .EQ  .7  )  LW ( 9 ) = RADL ST  C L W (  10)1 

IF (  INSTR  .EQ. 1 1 )  I UNI  =  0 

711 

MA JOR=L ISTEX 

RETURN 

END 

SUBROUTINE  CHART (LCORSF ) 

COMMON  L  AVS ,  LW ( 10) 

INTEGER  COND( 16) ,  CFLL I 16) ,CHANEL(32 ) , BLANK/ *  •/ 

INTEGER  IP { 8 ) , BAR  /  1  |  * / , M INUS / « -  * / 

NC=  1  6 

CALL  MTL  1ST { LW( 8  )  ) 

89 

LST=LRIN(L CORSE) 

JUNK=L I S T  C  3 ) 

DO  90  T  =  1 , N C 

90 

COND ( I ) =6 

CONDI  9)  =  8 

CELL ( 9 )  =  LST 

91 

IBEG  IN=0 

I EN0=0 

DO  92  I  =  1 »  N C 

92 

IF ( CONDI  I ) . NF  . 6  )  I FN0=1 

CHANEL (2*1-1 )=Bl ANK 

CHANEL  I 2*1 ) =BL ANK 

93 

I F ( TEND)  93,19,93 

DO  6  1  =  1  ,  NC 

ICGND=COND(  I  ) 

1 

ICE  LL  =  CELL I  I  ) 

GO  TO  (  1 ,2,3, 4,4,6, 4, 8,9)  , I COND 

I n= ID  INI  I C E L L  ) 

10 

IF  C ID-1  )  10,11,12 

IF!  IC.EQ  .0)  GO  TO  1002 

N= -4 -  I  D 

100  1 

IFIN-1)  1001,102,1003 

I C  0  N  D  =  2 

GO  TO  2 

1002 

1003 

N=  1 

I  F (  ID  •  EQ  .-8  )  GO  TO  128 

, 

r  [  \ 


■  '  '  '  fi! 


108 

T  F  C  N . GT . 3  )  N= 1 

on  1004  J  =  1  ,  N 

CHANEL ( 2*1-2  +  J )=  IN HALT ( I  CELL ) 

IF CCOND (  I  ) . EQ.2 .OR .CONDI  I ) . FG.4 )  GO  TO  1004 

1004 

TD=ID INC  LR  INC ICELL  )  ) 

IFC ID. LE. -2. AND. ID. GE. -4)  GO  TO  13 

IC  ELL  =  LR  IN (  ICFLL ) 

IF(CONO( I) .NE.4.0R  .  I D IN  « ICELL ) .NF. 1 )  GO  TO  1005 

LL=LLI N ( CELL ( I ) ) 

IF ( ID  INC  LL )  .GE  .2. A NO. INHALT  ILL)  .LT.O)  CONDC  I )=9 

100  5 

101 

CELL ( I  )  =  I C  F  L  L 

I  F(  IOTN( CFLL ( I  )  )  .GE.2  )  CONDC I ) =4 

GO  TO  6 

10? 

I N= I NH AL T  ( ICELL) 

I PO=BL ANK 

IFC  IN  .GE  .0 )  GO  TO  1021 

1021 

I  PO  =  N!  I  NU  S 

I  N=- I N 

CALL  HOLLERC CHANEL (2*1-1 )  ,  IN, IP ) 

CHANEL C2*I-1 )=IPACK< I PO, IP(l) , IPC 2 ) , IPC 3 ) ) 

CHANEL (2*1 ) = IP ACK ( I P ( 4 ) , I P ( 5 ) , I P ( 6 ) , I P ( 7 ) ) 

IFCCONDC  I  )  .  EQ.2  .OR .COND(  I  )  . EQ.4 )  GOTO  1022 

102? 

I 0= 1 0 I N ( LR I N ( ICELL )  ) 

IF (  ID  .LE  .-2  .  AND  .  ID  .GE  .-4)  GO  TO  13 

CELLC  I  ) =LR  IN ( ICELL ) 

11 

GO  TO  101 

CHANEL ( 2*1-1 )=BAR 

CELL (  I  )  =  R  A  0  L  S  T (  INHALT ( ICELL) ) 

12 

GO  TO  6 

INSTR= INH AL  T l ICELL) 

IFC CONO (  I ) .EQ.4)  GO  TO  12  5 

120 

125 

IFC INSTR.LT. 100. OR. IBEGIN.EQ.O)  GO  TO  121 

CALL  PR  (  ICELL,  INSTR ) 

CONO { I ) = 3 

121 

IFC  INSTR. LT.O)  CONDC  I )  =  4 

GO  TO  127 

IFC  ID  INC  ICELL) -3  )  1  2  2  ,  122,123 

122 

123 

1  26 

IFC  INSTR  )  126, 127,  127 

IFC IFINDC ICELL, JUNK, N) )  126,125,126 

CALL  NEWTOP ( ICFLL , JUNK ) 

127 

IFC  INSTR. LT.O)  GO  TO  128 

CALL  HOLLERC CHANEL ( 2*1-1 ) , T CELL,  IP) 

CFLL  C I  ) - L R  I N ( ICELL ) 

128 

I  BEG  I  N= 1 

GO  TO  6 

I  CELL  =  LR INC  ICELL ) 

13 

CELLC  I  )  =  ICELL 

GO  TO  1 

I  COND= 1 3 

2 

IFCN.GT.2)  GO  TO  22 

N=NUCH AN  CCONO , I , NC ) 

I  . 


IFIN.NF.  I  )  GO  TO  2  5 

109 

22 

CHANEL (2*1-1  ) =3  AR 

CONDI I)  =  2 

IF (  I  COND  .EG  .9 )  GO  TO  4 

25 

TCELL=CELL I  I  ) 

GO  TO  1 

CALL  ARTIST {  ICELL,  ICOND, CHANEL .  T.N) 

CELL { I )  =  LR I N  I ICELL ) 

CELL (N)=PADLST I  INHALT (ICELL ) ) 

COND ( I)=l 

CONDI N ) =8 

IF(N.GT.I)  COND { N ) =7 

1  GO  TO  101 

3 

4 

CONDI  I )  =  4 

GO  TO  1 

CONDI  I )  =  IC0ND  +  1 

9 

GO  TO  6 

CONDI  I  )  =  3 

GO  TO  11 

8 

6 

CONDI  I  )=1 

CHANEL (2*1-1  )  =  8  A  R 

CONTINUE 

31 

WRITE  I  6, 31)  CHANEL 

FORMAT  I  IX, 1 6I2A4 ) ) 

GO  TO  91 

19 

191 

CONTINUE 

DO  193  1=1,2 

IF!  I  POPUP  I t ST,LW19-I  )  )  )  193,192,193 

192 

193 

IF! IFINDILST ,JUNK,N) )  89,191,89 

CONTINUE 

CALL  IR A  LST ( JUNK ) 

RETURN 

END 

SUBROUTINE  HOLLER I  IHOLL, ICELL, TP) 

C 

CHANGES  5  PLACE  INTEGER  TO  HOLLERITH 

INTEGER  IH0LLI1 ),IPI8), BLANK/*  */,7FRO/»0*/ 

I  R  =  I C  E  L  L 

J=100000 

N=  0 

DO  3  1  =  1,5 

J  = J/10 

K=  T  R / J 

I  F ( K)  1  ,  1  ,2 

1 

2 

I  F { N  )  3,3,2 

N  =  N  +  1 

IP  I N  )=( K-16 ) *16777216 

3 

IR=IR-IR/J*J 

NP l  =  N  +  1 

00  4  I =  N  P 1 , 8 

4 

19(1 )= BLANK 

IF(N.EQ.C)  IP! 1  )  =  Z  ERO 

. 


I  J  \  •  -  J  -  r 


'  f »  .  .  )  ■ 
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IHOLL  (  1  )=IP  ACK  (  IP(1),IP(2),  IP!3)»IP(4)1 

IHOLL  !  2  )  =  1  PACK  UP(5),IP(6),IP(7),IP!8)) 

RETURN 

END 

SUBROUTINE  PR ! I  CELL , I NSTR  ) 

COMMON  LAVS  ,  LW ! 10) 

L=MADLST (LW! 8) ) 

1 

2 

L=LRIN( L ) 

I  F (  I 0 I N  (  L ) -2 )  2,3,3 

K= INHAl  T  (  L ) 

3 

4 

IF! INST R-TN HALT (K) )  3,4,1 

CALL  NEW  BOTH  CELL,  U 

RETURN 

C 

END 

SUBROUTINE  ARTIST ( ICELL, I COND, CHANEL , I , N ) 

DRAWS  LINE  FROM  CELL  AT  CHANNEL  T  TO  CHANNEL  N. 

INTEGER  IP  (4  )  , CHANEL  (  1  ),  STROKE/1 _ V,  BLANK/'  */,I082/'  *  / 

INTEGER  I  LE  FT / *  _  j  ' / , I R I GH  T / '  ! 1 / , NLEFT / * */,NRIGHT/'_  •/ 

INTEGER  TOU/'T-CU’ / , T / 1 T ' / , M I S/ ' M I S- '  / , M/  '  M 1  / 

INTEGER  TS/'T _ ' / ,MS/' M _ '/ 

12 M 1=2*1  -1 

N2M l=2*N- 1 

IF { N.GT. I )  GO  TC  2 

I  2M2=2* I -2 

DO  1  J=N  2M 1 , I 2M2 

I 

CHANEL ( J)=STROKE 

CHANEL ( N2M1 )  =  N  L  F  F  T 

I F (  T COND  .NE  .2 )  GO  TO  4 

2 

CHANEL (  I 2M1  ) =  I L  EFT 

GO  TO  5 

1 2  =  2  *  T 

3 

I 2P 1=2*1 +1 

DO  3  J-I  2P1  ,  N 2 .M  1 

CH  AN  EL  I J  1=STR0KE 

CHANELIN2M1 }=NR  I  GH T 

IF (  I COND  .NE  .  2 )  GO  TO  30 

CHANEL!  I  2M1  ) = I R I GHT 

3C 

CHANEL { I ?)= STROKE 

GO  TO  5 

DO  3  1  J  =  1  ,4 

31 

I P ( J )  =  IUNPAK( CHANEL! I 2)  ,  J  ) 

IF (  IP (J  )  .EQ.8LANK.0R . IP ( J ) . FQ  .  1082 )  I P  C  J )  =  STROK F 

CONTINUE 

CHANEL !  I 2 )  =  I  PACK !IP(1),IP(2),IP(3),IP!4}} 

DO  3  2  J  =  3 , 4 

IP! J)= IUNPAK (CHANEL! T2M1  ),J> 

32 

IF (  IP! J  )  .EQ . BLANK .OR  .  IP ( J  )  . FQ .  108  2 )  IP!  J  )  =  STROKE 

CONI INUE 

CHANEL!  I  2M1  )  =  IPACK  (  IUNPAK  (CHANFL!  I2M1  )  ,  1  )  ,  IUNPAK  (CHANEL!  T2'-U  )  ,2)  , 

A 

1  I  P  (  3  )  ,  I  P  (  4  )  ) 

ICELL=LR  IN!  ICFLL  ) 

u  . T  .  ' >=*i 


Ill 


5  10=  I  D  I N (  ICELL  ) 


IF (10+3)  7,6,8 

6  CHANEL (N2M1 )=TOU 

CHANEL ( 2*N )=T 

IF(N.LT.I)  CHANEL! 2*N )=TS 

RETURN 

7  CHANEL! N2M1 )=MIS 

CHANEL ( 2*N ) =M 

IFCN.LT.I)  CHANEL! 2*N )=MS 

8  RETURN 

END 

SUBROUTINE  LR(CCL,LST) 

INTEGER  COL ( 1 )  , IP!  11  )  , BLANK/'  '/ 

CALL  SETT  ND  (-13,-1, -1»LLIML$T)  ) 

CALL  l  INTER (COL (11 ) , 6 1 , *  *,1,N) 

CALL  L  INTER  (COL  <  1 1  )jl N  ,  W  ,  2 ,  K  ) 

NEXT  =  NUL ABL ( COL (  11  )  ,K  ) 

N= NEWBOT  (NEXT , LST } 

CALL  SFT!ND!-8,-l,-l,N) 

N=  MI  NO ( 3,K/4+l ) 

DO  1  1=1,3 

IP ( 1 ) =8L ANK 

IF!  I.LE.K)  I  P (  I  )=COL (  I  +  10) 

1  CONTINUE 

I N=  I  PACK (BLANK,  I  P (  1  ) , I P ( 2 ) ,  I P ( 3 ) ) 

M= NEWBOT  (IN,  LST  ) 

IFIK.GT.3)  CALL  SET  I ND ( -N-4 ,-1,-1, M) 

1 F ( K  •  L  E . 3  )  GO  TO  4 

DO  2  1=4,7 

IP( I )  =  BL  ANK 

IF(  I . L E . K )  IP!  I  ) =CUL !  1+10) 

2  CONTINUE 

IN= I PACK (  IP(4),IP(5),IP(6),IP(7)J 

CALL  NEWBOT (  IN, LST  ) 

I F ( K . L E . 7 )  GO  TC  4 

DO  3  1=8,11 

I  P  (  I  )  =  BLANK 

IF! I.LE.K)  IP! I  )=COL !  I +  10 ) 

3  CONTINUE 

I  N=  I  PACK  !  IP(8), IP!9 ) , IP! 10)  ,IP!  11)  ) 

CALL  NEWBOT !  IN, LST) 

4  CALL  NEWBOT ! PACK ! BLANK ,COL ! K+ 13 ) ,COL ! K+14) , COL ( K+15 ) ) ,LST ) 

RETURN 

END 

FUNCTION  LCOPY! ILST,NLST) 

LCOPY=NLST 

K= I LST 

1  K=LR  IN! K  ) 

IF!  ICIN! K  ) -1  )  2,3,4 

M=NEWBOT ( INHALT (K) ,LC0PY) 
CALL  SET  IND(  IQIN(K) ,-1,-1 ,M) 


<  . 


1  I  2 

GO  TO  1 

3 

4 

K=M ADLST I INHALT (K )  ) 

GO  TO  1 

RETURN 

C. 

END 

FUNCTION  NULABL (LABEL, N) 

RETURNS  NAME  OF  LABEL  LIST  AND  STORES  LABEL  AND 

I  1ST  ON  !  WIT)  IF 

C 

NOT  ALREADY  THERE 

COMMON  LAVStLW(lO) 

INTEGER  LABEL! 1) , LABI  3) 

2 

CALL  SPACK ( LABEL , N ♦ LAB , M ) 

K-MADLST I  L  W ( 7  )  ) 

K=L L IN ( K  ) 

3 

IF!  1 0 I N ( K ) -2  )  3,6,6 

L= INHALT  IK) 

IF  I  INH ALT { L )+N)  2,4,2 

4 

DO  5  1  =  1  ,M 

L=LR I N ( L  ) 

IF (  INHALTIL  )  .NF  .LABI  I  ))  GO  TO  2 

5 

CONTINUE 

NUL ABL= INHALTCK  ) 

RETURN 

6 

NUL  A  B  L.  =  M  ADLST  (  L  I  ST  (  2  )  ) 

CALL  NEWBOT ( NUL  ABL , LW ( 7 ) ) 

CALL  ST  R  IND I -N , NUL  ABL  ) 

7 

DO  7  I  =  1  ,  M 

LAB!  I ) =N EtoBOT (LABI  I )  ,  NULABL ) 

IFIM.GE.2)  CALL  SE T I N n I - M-4 , -  1 , - 1 , l  AR I  1 )  ) 

RETURN 

END 

FUNCTION  NUCHANtCOND,  I  ,NC  ) 

C 

C 

SELECTS  BRANCH  CHANNEL 

ICF  TS  THE  CENTERING  FACTOR 

INTEGER  COMDIl) 

I C  F  =  3 

IM 1=1-1 

DO  21  K=  1 ,  I  M 1 

21 

J  =  I  -  K 

IF! CONDI J  )  - 6  )  2 2,21,22 

CONTINUE 

22 

J=  0 

I P 1= I  +  1 

DO  23  K=  I  PI  , NC 

.  23 

IF ( CONDI K  > -6 )  24,23,24 

CONTINUE 

K  =  NC+ 1 

24 

L  —  I  —  ( I-J  +  ICF-2) /ICF 

M= I  +  I K -  I + I CF-2  )  /  ICF 

NIJCHAN=L 

IF(K-I.GT.I-J)  NUCHAN=M 

RETURN 

- (  »  ’ ’ n ! ) 


(  > 


1 1  3 


END 


SUBROUTINE  8R ( CCL, LBR , I FL AG , LST  ) 

C  SETS  UP  BRANCH  TO  LABEL,  L  A  S  T  F  °  ,  PROBLEM,  PR  RETURN  REGISTER. 

COMMON  L  AVS  »  LVM  10 ) 

INTEGER  COL (1),E/,E,/,P/,P,/,P/'R,/ 

INTEGER  INTGER( 10) / *0* , « 1 •  ,  *2* , 1 3' , '4’ , ' 5*  , ’6*  ,  *  7*  , *8' , *  9' / 

I  FL  AG= 1 

K=MINO(  LIMTERICCU  11  )  ,61,  *  *  ,  1,  K)  ,L  INTER  (COL  (  1  1  )  ,6]  , *  *  ,  1,K  )  ) 

IF ( L  INTER ( COL < 1 1 ) ,K, W ,  2,N)  .EO.K)  I FL  AG=C 

IF (  IFLAG.EQ.  1  )  CALL  BRC ( COL , LST , K . N ) 

IFIN.GT.3)  GO  TO  302 

IF (COL (  1  l ) . EQ  .P  )  GO  TO  304 

I F ( CCL ( 1 1 )  .  E  Q  .  R  )  GO  TO  304 

C  LABEL 

302  LBR=NUL  ABL ( CCL ( 11 ) , N  ) 

303  RETURN 

304  I  F ( COL (  12) . EQ . R )  GO  TO  305 

IF  (  COL  (  1 1 ) .EQ.P )  GO  TO  302 

IF ( COL ( 12) .NE.E )  GO  TO  302 

IFIN.NE.2)  GO  TO  302 

C  LASTEP 

LBR=LW (  9  } 

RETURN 

305  CO  306  1=1,8 

IF (COL ( 13) .EQ. INTGERl I) )  GO  TO  307 

306  CONTINUE 

GO  TO  302 

307  I F ( CGL ( 11) • EQ  •  R  )  GO  TO  305 

C.  PR 

L8R= INHALT ( MADNTP ( LW  (  8  )  ,  I  )  ) 

RETURN 

308  IF( I .GT .6)  GO  TO  302 

C  RR 

LBR  =  MADL  ST ( LVH  I  )  ) 

I F  (  I D I N ( LR I N ( MADLST ( L  W ( I )  ) )  ) )  3  09,303,309 

309  CALL  NEWTOP( PACK ( ' R' , ’R’ , COL( 13 ) , 1  * ) , L W ( I ) ) 

RETURN 

END 

SUBROUTINE  BRC  (  COL  ,  L  S  T  ,  l<  ,  N  ) 

INTEGER  COL ( 1 ), C/' C» /, PLANK/'  ' / , M I NU S /  '  - ' / 

CALL  SETINDC t-1 t LLIN( LST) ) 

CALL  L INTER (COL (N+13 ) ,K-N-2, W , ?,M) 

IF(M.GE.3)  GO  TO  2 

1  IN= I  PACK (BLANK, COL ( N+13)  ,C0L(N+14) , BLANK) 

GO  TO  4 

2  TN=  I  PACK  (BLANK,  COL  (  N  +  13  )  ,  COL  (  N+1.4  )  ,  COL(  N  +  15  )  ) 

I F ( M  •  EQ • 3 )  GO  TO  4 

J=  NEWBOT ( IN, LST  ) 

CALL  SET  IND  (-6,-].,-l,J) 

I N= I  PACK (COL (N+16 ) , BL ANK , BL ANK , BL ANK ) 
4  CALL  NEW  ROT (  IN, LST  ) 


. 


1  1  4 


,V  =  N  + v  +  ]  5 


I F ( CO  L ( N  + 1 3  )  .NE.C)  GO  TO  5 

CALL  L  INTER  (COL  (M) ,4,  W*  ,2,L  ) 

IP3=BLANK 

IF(L.EQ.2)  I  P  3=COL I M  + 1 ) 

CALL  NFWBOT I PACK( «  ' , COL  I M )  ,  I P3  » 1  •  ),LST) 

M=M+L+? 

5  NN=K-M+ 1  1 

IF (COL ( M  ).NE.C)  GO  TO  6 

I P3 -BLANK 

IF { NN • EQ  . 3 )  IP3=COLIM+2) 

CALL  NEWBOT (PACK ( '  S C» COL I M  +  l )  ,  IP3 ) , LST ) 

RETURN 

6  J=NN 

IF ( COL( M)  .EQ. MINUS )  J=NN-1 

I  N  =  0 

L=  1 

DO  7  1  =  1  ,  J 

IN=IN+ (COL < 11+K-I )/ 167772 16+1 5) *L 

7  L=L*10 

IF(J.NE.NN)  I N  =  - 1 N 

M= NEWBOT ( IN, LST ) 

CALL  SET  I MD ( -5, -1 , -1 , M) 

RETURN 

END 

SUBROUTINE  TR(CCL»NEXT ) 

C  CREATES  TRANSFER  TO  LABEL  OF  NEW  SEGMENT 

INTEGER  COL  (1)  ,  LABEL  I  3)  ,  BLANK /'  V,  IP(4) 

N=  M I  NO I L INTER (COL ( 11 )  ,61, 1  ■ , 1,N  )  , L  IMTFR( COL I  1  1  )  ,  61  ,  *  ’ ,  1 ,  N  )  ) 

CALL  L  I M TER (COL ( 1 1  ) , N t 1 -»/ * , 2 , K ) 

NEXT=MADLST (LIST  12 )  > 

CALL  STR  IND (2  +  K-N, NEXT) 

CALL  SP ACK ( COL I 13+K) , N-K-2, LABEL ,M) 

DO  1  I  =  l,N 

1  LABEL (I) =NFWBOT ( LABEL ( I ), NEXT ) 

I F ( N  •  GF  •  2  )  CALL  SE T I  NO ( -N -4 , - 1 , - 1 , L A8 EL ( 1  ) ) 

CALL  NEWBOT ( *SEG-* , NEXT ? 

00  2  1=1,4 

IP (  I  )  =  COL (  1  +  10 ) 

IF(I.GT.K)  I P ( I  )  =BL ANK 

2  CONTINUE 

CALL  NFWBOT (PACK! IP (1)  ,  IP ( 2 ) , TP (31 , IP  (  4)) , NEXT ) 

RETURN 

END 

SUBROUTINE  01  SECT! COL, IN STR, LST) 

INTEGER  COL( 1) ,S/' S* /,C/*C» /, BLANK/*  * / , IP ( 4 ) , M I NUS / * - ' / 

N=M  INOIL  IMTER( COL  I  1  1  )  ,61  ,  *  '  ,  1 ,  N )  ,  l.  INTER  (COL  (11)  ,61  ,  *  '  ,  1,N  )  ) 

IF(N.GT.ll)  RETURN 

CALL  LIMTERICCLIll  ),N,*-’/,,?,K) 

IFIK.EQ.N)  RETURN 

IFICCLIK+13)  .NE.S.AND.COLIK+13) .NE.C)  RETURN 


11  5 


V  ™  l-  L.  J  1-  »  J.  *  *  L/  *  i'NO  ir\t  i.  J  J.1N1L.O*  I  * 

IF (CCL( 1 1 ) .NE.C)  GO  TO  10 

I  P4=BL ANK 

I  F ( K  •  EG . 3 )  I P4=  COL ( 13) 

CALL  NEW  EOT (PACK  I  *  » , C , COL( 12 ) ,  IP4 5 , LST ) 

GO  TO  12 

10  J  =  K 

IF (COL ( 1 1) .EQ.M INUS )  J  =  K-l 

I  N  =  0 

M=1 

DO  11  I  =  1  ,  J 

TN=IN+ (CGL( K+ll-I ) / 16777216+15) *M 

11  M=M*10 

IF(J.NE.K)  I  N=- IN 

M  =  NEW ROT  (IN, LST  ) 

CALL  SFT  IND( -5f -1 , -1 , V  ) 

12  J -N-K-2 

I F C J .GE .3  >  GO  TO  3 

I N  = I  PACK (BLANK, COL (K+  13) , CO L ( K+14 ). BLANK ) 

GO  TO  5 

3  I N= I  PACK (BLANK, COL (K+ 13) , COL ( K  + 14 ) , COL ( K+ 15 ) ) 

I F ( J • EQ . 3 )  GO  TC  5 

M  =  N  E  W  B  0  T  (IN  ,  LST  ) 

CALL  SET  IN0( -6, -1,-1 , V ) 

I N- IPACK ( CO  L ( K  +  1 6 )  , BL ANK , BL ANK , BLANK) 

5  CALL  NEW  BO T (  IN, LST  ) 

RETURN 

END 

FUNCTION  I F  I NO ( M , L , K ) 

K= MAD LST (L) 

1  K-LRIN(K) 

T  F (  ID  IN ( K ) -2  )  2,4,4 

2  I F (  INHALT ( K ) -M )  1,3,1 

3  I F  I  ND=0 

RETURN 

4  I  E  I  N  0  =  - 1 

RETURN 

END 

FUNCTION  LIN TER (STRING, LENGTH, DELIMT ,M,N) 

C  FINDS  NUMBER  OF  CHARACTERS  N  UP  TO  DELIMT  FOR  STRING  OF  GIVEN 

C  LENGTH.  DELIMITER  LENGTH  M  MUST  NOT  EXCEED  4  CHARACTERS  (1  WORD). 

REAL  STRING ( 1 )  ,CEL (4) 

DO  1  J  =  1  ,  M 

1  DEL (J)=UNPACK (DELIMT, J ) 

N= LENGTH  +  1-M 

DO  3  1  =  1  ,  N 

DO  ?  J= 1  ,  M 

IF( STRING! I+J-l ) .NF.DEL(J ) )  GO  TO  3 

2  CONTINUE 

GO  TO  4 
CONTINUE 


. '  ) 


{  .  .MI 
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_ I=LENGTH+1 _ 

4  L I MTFR= I -1 

N=L IMTFR 

_ RETURN _ 

END  .  .  . .  . .  . 

SUBROUTINE  SPACK (STR I NGt LENGTH , PACKED tN ) 

C _ PACKS  STRING  OF  GIVEN  LENGTH  FRDM  A  I  INTO  PACKED  STRING  OF  LENGTH 

C  N  WORDS  OF  TYPE  A4 .  BLANKS  FILL  AMY  REMAINING  SPACE. 

REAL  STR  ING ( 1 ), BLANK/ ’  * / , P ACKE D (1) , EXTRA { 4 ) 

_ N= ( LENGTH+3 ) /4 . 

M=N- 1 

I F  !  M  )  6 , 3 , 1 

1  DO  2  1=1, M _ 

2  PACKED!  I  )=PACK!STR  ING (4* I -3) , STR I NG ( 4* I -2 ) , STRING (4*1-1 )  , 

1  STRING (4* I)) 

3  NEXTRA=L  FNGTH-M*4 _ _ _  __  __  ___  __  __  _ 

DO  5  1=1,4 
EXTRA! T ) =  B  L  A  N  K 

_ I  F  (  I  -  N  F  X  7  R  A  )  4 , 4  ,  S _ 

4  EXTRAf I ) =STRING(4*V+I J 

5  CONTINUE 

_ PACKED!  N  )  =  PACK(  EXTRA  (  1  )  ,  EXTRA  (  ?  )  , EXTRA! 3  )  ,  EXTRA  (4)  )  ___  _ _ 

6  RETURN 
END 

_ FUNCTION  PACK (11, T?, 13,  14) _ 

C  EXAMPLES-  IPACK!’  A*,  *  B  * , *  C  * ,  'O’  )  IS  1  ABC  D 1 

C  IPACK ( 'ABCD* , 'EFGH' ,* IJKL* , ’ MNOP * )  IS  1  A  El M  *  ETC. 

C _  PROGRAMMED  OCT/68  3Y  C.  FLATHMAN 

ENTRY  I P  ACK ( I  I ,12,13,14) 

K—  I  1 

_ IF(K.LT.C)  K  =  - { K  +  1  ) _ 

I PACK=K/ 16777216*16777216 
K=  I  2 

_____  _  I  F  !  K  .  L  T  .0?  K= - ! K  + 1  ) 

K=K / 16777216 

IF!  I  SIGN!  1  ,  ID  +  ISIGN!  1,  12)  .EQ.O)  K  =  255-K 
_ I  P  A CK=  I  P  ACK  +K  * 6  5  5 3  6 _ 

K=  I  3 

IF(K.LT.C)  K=-( K  +  l  ) 

_ K=K / 1677  72 1 6 _ 

IF! I  SIGN! 1 , II J+ISIGN! 1 , 13) .EQ.O )  K^2  5  5-K 
I P  A  C  K  = IPACK+K*256 

_ K= I  4 _ 

IF(K.LT.O)  K=-( K  +  l  ) 

K=K/ 16777216 

, _ I F (  I S I GN  1  1 ,  I  1 ) + ISIGN( 1,  14) .EQ.O)  K=255-K _ 

I P  ACK= I P  ACK+K 

IF!  II. LT  .0)  IPACK  =  -I PACK-1 

, _ CALL  EQUAL  1  PACK,  IPACK  ) _ 

RETURN 

FND 


*  ,  '  »  f  r  «  f  • 
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_ FUNCTION  UNPACK  (  I  ,  TR) _ _ 

C  EXAMPLES  -  I UNP  AK (  1 ASCD ' , 1 )  IS  'A  » 

C  IUNPAK! 1 ABCD’t 2)  IS  *B  ’ 

C _ I UNPAK (  '  ABCD*  >3)  IS  *  C  '  ETC. 

C  IN  WORD  I,  IB  IS  BYTE  1,2,3,  OP.  4,  CTHFRW I SE  1  IS  ASSUMED. 

C  THE  RESULT  IS  ALWAYS  RETURNED  IN  RYTE  1,  WITH  BLANKS  TO  T RIGHT. 

C _ PROGRAMMED  OCT/68  8Y  0.  FLATHMAN _ _ 

ENTRY  I  UNP  AK (  I ,  IB) 

K  =  I 

I F (  1 .LT .0)  K  =  - -  (  I  + 1  ) 

GO  TO  (1 ,2,3,4) ,  IB 

1  K=K/ 167772 1 6 

_ IF(K-127)5,5,8 _ _ 

2  K A=K/ 655  36 
K=KA-KA/256*256 

. IF ( K-12 7 ) 5 , 5  y B . 

3  KA  =  K/2  56 
K=KA-KA/256*256 

_ IF!K-127)5,5,8 _ 

4  K-K-K/2  5  6*2  56 
IF ( K-l 27  )  5, 5, 8 

_5_  I UNP AK=K* 16 77 72 16+42 10752  __  _  _  _ 

IF  11)6,7,7 

8  I  UN  PAK= !  255-K)5*  16777216  +  4210752 

_ I  F  (  I  )  7 , 6 , 6 _ 

6  IUNPAK=- IUNPAK-8355712 

7  CALL  EQUAL! UNPACK, IUNPAK) 

_  RETURN 

end’ 

SUBROUTINE  EQUAL (Y,X) 

_ Y=_X _ 

RETURN 

END 

_ FUNCTION  IRALST(K) _ _ _ _ _ _ _ . . . .  .  . 

L=MADLST (K ) 

CALL  SET  IND!  IDINCL )-l ,-1 ,-l ,L) 

_ IRALST=I DIN! L  ) _ 

IF! IRALST-2)2,2,1 
2  CALL  MTLIST(L) 

CA_LL  SET  INDCO,  -1,-1,  L  L 

CALL  RCELL(L) 

1  RETURN 

_ END _ 

FUNCTION  IDIN(K) 

INTEGER *2  ID! 16000) , LNKL ( 16000) ,LMKR( 16000) 

. . COMMON . LAVS ,LW!  10)  ,  TCGMT! . 16  00^ )  , ID ,LNKL , L NK R . 

I D I  N=  I D  (  K  ) 

RETURN 

_ END _ 

FUNCTION  L L  I N ! K ) 

INTEGER ^2  ID!  16000 ) , LNKL  (  I60O0)  ,  LNKR (  16000) 


•  l:  u  ! 


■ ,  • ,  (  '  1 1 


_ COMMON  LAVS,LV>i(  10)  ,  I  CONK  16000)  ,  ID,LNK(  ,LNK.R 

L  L I N  =  LNK  L ( K  ) 

RETURN 

_ END _ 

FUNCTION  LRIN(K) 

INTEGER* 2  ID( 16C00) , LNKLC 16000) ,LNKR{ 16000) 
_ COMMON  L4VS,LW(  10)  ,  ICGNT( 16000)  ,  ID,  LNKL  ,  LNKR 

LR  I  N=l.NKR  (  K  ) 

RETURN 

_END 

SUB  ROUT  T  N  E  SET  I  NO  (  I  ,  L  L  ,  1.  R  *  K  ) 

I  NT  EGER* 2  ID (16000) , LNKL (  1600  0)  fLNKR(  16000) 
_ COMMON  L  AVS,LW(  10)  , I  CONTI 16000)  ,  I D, LNKL , LNKR 

IF (1  +  1)1, 2,1 
1  I  D  (  K  )  =  I 

_2 _ I F  (  LL+  1 )  3,4  ,_3 _ 

3  LNKL(K )=LL 

4  IFCLR+l) 5,6*5 

5  L  N  K  R  (  K  )  -  L  R _ 

6  RETURN 
END 

_ SUBROUTINE  STRINDC  M ,  K  ) _ 

INTEGER*2  IDC  16000  )  , LNKL (  16000)  ,LNKR {  16000) 
COMMON  L  A VS ,LW( 10)  , ICCNT( 16000  )  , ID, LNKL , LNKR 
_ ICONT(K) =M _ 

RETURN 

END 

_ FUNCTION  INHALT ( K ) 

I NTEGFR* 2  I D  C 16C00 ) , LNKL (  16000)  , LNKR {  1  6000) 
COMMON  LAVS,LW( 10) , ICONT{  16000  )  ,  T  D,  LNKL  ,  LNKR 
_ I NH ALT= I CONT ( K  ) _ 

RETURN 

END 

_ FUNCTION  NAMF(MAD) _ 

NAME=MAD-10 1 058055 
C  101053055  IS  *9999’ 

_ RETURN _ 

END 

FUNCTION  M ADI  ST (L) 

_ MADLST=L _ 

IF ( MADE  ST)  1  ,1*2 

1  MADLST=L +101058055 

2  RETURN _ 

END 

SUBROUTINE  INITAS(N) 

COMMON  LAVS  ,LW(  10) . . . __ . . . . . _____ 

L AVS= 1 

CALL  SET  IND(0fN,12 » L  AVS ) 

_ CALL  STR IND ( N , L  AVS  ) _ 

DO  1  1=2,11 
L  W  (  1-1  )  =  N  A  M  E  (  I  ) 


'  (  ) 
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_ CALL  SET  IND ( 9999 ,  1,1,1) _ 

1  CALL  STRINO(-ltl) 

DO  2  1=1 2, N 

CALL  SET  IND (0,0,  H-l,  I  ) 

2  CALL  STR  IND ( C  »  I  ) 

CALL  SET  IND C 0,0 ,0, N) 

_ RETURN _ 

END 

SUBROUTINE  RCELLIL) 

_ COMMON  LAVS _ 

CALL  SET IND  C - 1 , - I , L , L L I NI  LA VS )  ) 

CALL  SET IND I -1 , L  » - 1 , L  AVS ) 

_ CALL  SFTIND(-1,-1,0,L) _ 

RETURN 

END 

_ FUNCTION  LI  STMT (K ) _ 

L  =  MADL  ST ( K ) 

IF(LRIN( L1-L  >3, A, 3 

A  LISTMT=Q _ 

RETURN 

3  L I STMT  =  -  1 

_ RETURN _ 

END 

FUNCTION  MTLIST(K) 

_ COMMON  LAVS _ 

M  T  L  I  S  T  =  K 
L  =  M ADLST  ( K  > 

_ TFC  LISTMTIL  )  )3,A,3 _ 

3  LR=LR I N ( L ) 

LL  =  L  L I N ( L) 

_ CALL  SET  IND ( - 1 , L  ,  L  ,  L  ) _ 

CALL  SET IND I  - 1 ,  - 1 , LR , LL I N I LAVS) ) 

CALL  SET  IND( -1 , LL, -1 , LAVS  ) 

C  A L L  SET  I  NO ( - 1 , - 1 , 0 , L l  ) 

A  RETURN 

END 

_ FUNCTION  NUCELL(X) _ 

COMMON  LAVS 
L=LR I N ( LAVS ) 

IF(L)  It  5,1 _  _  _ 

1  CALL  SETIND(-1,-1,LRIML)  ,LAVS) 

IF{  IDIN(L)-1  )  A  ♦  2  ,  4 

2  CALL  IRALSTI  INHALTIL?  ) _ 

A  CALL  SET  IND ( 0,0 ,0, L  ) 

CALL  STR  INDIO  ,L) 

_ NUCELL  =  L _ 

RETURN 

5  WRITE (6, 6) 

6  FORMAT  (f  CAVATLARLE  SPACE  EXHAUSTED' 1 


STOP 

END 


. 


♦  . '  -  • 
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FUNCTION  LIST(K) 

1 

L I S  T  =  MUC  ELL  I  X ) 

I F ( K- 2 ) 1,2,1 

CALL  SET  IND (3, LI  ST, LI  ST, LI  ST) 

? 

3 

GO  TO  3 

CALL  SET  IND ( 2, LI  ST, LIST  ,L  I  ST) 

CALL  STRINDC-1  ,LIST) 

A 

LI ST  =  L I  ST-101058055 

I  F  (  K  /  A  )  A, 5, A 

K  =  L I  ST 

c; 

RETURN 

END 

FUNCTION  NAMTST (M) 

5 

COMMON  LAVS 

I F  (  M  )  5 , 1  , 1 

L=M+ 1 01 0  5805  5 

6 

A 

IF  I L ) 1 »  l  ,  6 

I  F  (  L- INHALT { LAVS  )  ) A,  A,  1 

IF  (  IDIM  L  )-2  )  1 , 2,2 

2 

3 

IFILRINILLIN(L)  )  -L )  1,3,1 

NAMT  ST  =  0 

RETURN 

1 

N  A  M  T  S  T  =  -  1 

RETURN 

END 

FUNCTION  NEWTOP(M,U 

I^MADLSTIL) 

I R-NUC  F  L  L ( X  ) 

LR=LRIN(  I  ) 

NEWT 0P=  I  R 

CALL  S  E  T  I ND  (  -  i  »  -  1 »  IR,  I  ) 

CALL  SET  INDIO, I  ,  LR , I R  ) 

CALL  SET IND (  -1 ,  IR,-1 ,LR) 

I F ( N AMT ST ( M ) )  2 ,  1,2 

1 

CALL  SET  IND {  1,-1  ,-l ,  IR) 

LR  =  MADLS  T ( M ) 

CALL  SET  IND  I  IDIM  LR  )  +  1,-1  ,-l  ,LP  ) 

2 

CALL  ST R  IND { M ,  IR  ) 

RETURN 

END 

FUNCTION  NEW BOT ( M, L ) 

I  =  MADL  ST ( L ) 

I L=NUC  EL  L ( X  ) 

\ 

LL  =  LL  IN (  I  ) 

NEWBOT=I L 

CALL  SET IND (-1,-1, I L  »  LL ) 

CALL  SET  INDIO, L  L , I ,  IL  ) 

CALL  S  E  T  I  ND  I  - 1  ,  I  L  »  - 1  »  I  ) 

IF  I NAMTST ( M  )  )2,1,2 

I 

CALL  SET  IND( 1 ,-1,-1 ,  I L) 

LL=M ADLST I M ) 

_ _ C  ALL  SET  INO(  IS  IN  (LL  )  +  1  ,  -1  ,  - 1  ,  LL  ) 

2  CALL  STR  IND  (  M  ,  ID 
RETURN 

. . END _ 

FUNCT  ION  I  POPUP (Mf I) 

L=MADLST ( I  ) 

I _ K  =  L  R  I  N  C  L  )  _ 

IF(IOIN(K)-2)l,2,2 
1  NFXT  =  LRIMK) 

. . INHALT  (K) 

CALL  SET  INO (-1,-1, NEXT , L  j 
CALL  SET  IND(-1,L,-1, NEXT) 
_ CALL  RCELL(K) _ 

IPOPUP=0 

RETURN 

j _ 2 _ IPQPUP=-1 . 

M=0 

RETURN 

_ FND _ 

FUNCTION  I  POPBT ( I , L ) 

K=MADLST (L) 
t _ M=LL  I N  (  K  ) _ 

I  F  {  IOIN{.M)-2)l»2»2 

1  NEXT  =  LL I M  M ) 

| _ I=INHALT (M) _ 

CALL  SET  INO( -1 , NEXT, -1 ,K) 

CALL  SET  IND( -1 ,-l, K , N  EXT ) 

L  I POPBT  =  0 

CALL  RCFLL(M) 

RETURN 

2  1=0 _ 

I  POPBT  =  -  1 
RETURN 

L _ END _ 

FUNCTION  I  TO  P ( M  ,  L  j 

L  R  =  L  R I N ( M ADLST { L )  ) 

_ I  r-  (  I  D I  N  M  ■  R  )  -  2  )  1  ,  2  ,  2 _ 

1  M  =  INHALT ( LR ) 

I  TOP  =  0 

_ RETURN _ 

2  M  =  0 

I  TOP  =  - 1 

_ RETURN  _ 

END 

FUNCTION  MADNTP (K  »  N ) 

L _ M  ADNTP  =  MADL  ST  (  K  ) _ 

DO  1  1  =  1  ,  N 

1  MADNTP=LR IN (MADNTP) 

I_ return 


END 


1  ' 
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